Format Combobox Display Member

[AMDRIT]

Hello Everyone,

I would like to format the Display Members of a combobox's datasource. Is
there a way to apply a format without subclassing the original datasource?
For example, given a list of decimal values, format them as currency values
with a leading currency symbol and 2 decimal places.

TIA

Class Test

Dim SelectionList As ArrayList
Dim cbo As ComboBox

Public Sub New()
SelectionList = New ArrayList
SelectionList.A ddRange(New DataElements() {New DataElements(1D , 1), New
DataElements(1. 15D, 2), New DataElements(1. 3D, 3)})

cbo = New ComboBox
cbo.DataSource = SelectionList
cbo.DisplayMemb er = "Value"
cbo.ValueMember = "Index"

End Sub

Public Class DataElements
Private m_Value As Decimal
Private m_Index As Integer

Public Sub New(ByVal Value As Decimal, ByVal Index As Integer)
m_Value = Value
m_Index = Index
End Sub

Public ReadOnly Property Value() As Decimal
Get
Return m_Value
End Get
End Property

Public ReadOnly Property Index() As Integer
Get
Return m_Index
End Get
End Property

End Class

End Class

[Ken Tucker [MVP]]

Hi,

I usually make my combobox ownerdrawn when I have to format the
display members. Here is a link to making an ownerdrawn combobox

http://www.windowsformsdatagridhelp....7-ecb5b73cbcae

Ken
-------------------------------
"AMDRIT" <am****@hotmail .com> wrote in message
news:Oc******** *****@TK2MSFTNG P15.phx.gbl...

Hello Everyone,

I would like to format the Display Members of a combobox's datasource. Is
there a way to apply a format without subclassing the original datasource?
For example, given a list of decimal values, format them as currency
values with a leading currency symbol and 2 decimal places.

TIA

Class Test

Dim SelectionList As ArrayList
Dim cbo As ComboBox

Public Sub New()
SelectionList = New ArrayList
SelectionList.A ddRange(New DataElements() {New DataElements(1D , 1), New
DataElements(1. 15D, 2), New DataElements(1. 3D, 3)})

cbo = New ComboBox
cbo.DataSource = SelectionList
cbo.DisplayMemb er = "Value"
cbo.ValueMember = "Index"

End Sub

Public Class DataElements
Private m_Value As Decimal
Private m_Index As Integer

Public Sub New(ByVal Value As Decimal, ByVal Index As Integer)
m_Value = Value
m_Index = Index
End Sub

Public ReadOnly Property Value() As Decimal
Get
Return m_Value
End Get
End Property

Public ReadOnly Property Index() As Integer
Get
Return m_Index
End Get
End Property

End Class

End Class

[AMDRIT]

Ken,

Thank you very much. Your link was enough to get me to think in the correct
direction.

Private Sub cboComp_DrawIte m(ByVal sender As Object, ByVal e As
System.Windows. Forms.DrawItemE ventArgs) Handles cboComp.DrawIte m

' Formats the display value of a combobox as
' a currency value.
'
' Assumptions: All display values are numeric
'

'set the combo box drawmode = OwnerdrawVariab le
If e.Index = -1 Then Exit Sub

Dim strDisplayValue As String

'Seems there are layers in everything these days.
e.DrawBackgroun d()

'I am bound to an array of datarows, using cbo.datasource =
datatable.selec t("MyKey = SomeNumber")
'this handler will always treat the displayvalues as decimal and format
them as string currency
strDisplayValue = CType(CType(cbo Comp.DataSource ,
DataRow())(e.In dex)(cboComp.Di splayMember), Decimal).ToStri ng("c")

'Draw the data
'ToDo: Figure out how to right align using drawstring().
e.Graphics.Draw String(strDispl ayValue, cboComp.Font,
System.Drawing. Brushes.Black, New RectangleF(e.Bo unds.X, e.Bounds.Y,
e.Bounds.Width, e.Bounds.Height ))

'More layers
e.DrawFocusRect angle()

End Sub

"Ken Tucker [MVP]" <vb***@bellsout h.net> wrote in message
news:O9******** ******@TK2MSFTN GP14.phx.gbl...

Hi,

I usually make my combobox ownerdrawn when I have to format the
display members. Here is a link to making an ownerdrawn combobox

http://www.windowsformsdatagridhelp....7-ecb5b73cbcae

Ken
-------------------------------
"AMDRIT" <am****@hotmail .com> wrote in message
news:Oc******** *****@TK2MSFTNG P15.phx.gbl...

Hello Everyone,

I would like to format the Display Members of a combobox's datasource.
Is there a way to apply a format without subclassing the original
datasource? For example, given a list of decimal values, format them as
currency values with a leading currency symbol and 2 decimal places.

TIA

Class Test

Dim SelectionList As ArrayList
Dim cbo As ComboBox

Public Sub New()
SelectionList = New ArrayList
SelectionList.A ddRange(New DataElements() {New DataElements(1D , 1),
New DataElements(1. 15D, 2), New DataElements(1. 3D, 3)})

cbo = New ComboBox
cbo.DataSource = SelectionList
cbo.DisplayMemb er = "Value"
cbo.ValueMember = "Index"

End Sub

Public Class DataElements
Private m_Value As Decimal
Private m_Index As Integer

Public Sub New(ByVal Value As Decimal, ByVal Index As Integer)
m_Value = Value
m_Index = Index
End Sub

Public ReadOnly Property Value() As Decimal
Get
Return m_Value
End Get
End Property

Public ReadOnly Property Index() As Integer
Get
Return m_Index
End Get
End Property

End Class

End Class