|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Combo com Itemdata
|
 |
|
|
|
Postada em 9/2/2004 por Rochª
O itemdata das combo não existe mais para fazer algo similar use a rotina abaixo. Observe que voce não precisa ter indexes somente com numero , como nas versoes antigas, pode ser usado letras. Tipo.
RJ Rio de janeiro
Sp Sao paulo
Basta fazer algumas alteracoes.
---------------------------------------------------
public someClass
dim ComboItems as new ArrayList()
'Build array containing "items"
ComboItems.add(New ComboItem(1, "Home"))
ComboItems.add(New ComboItem(2, "Office"))
'Assign contents of Array to ComboBox
With cboComboBox
.DataSource = ComboItems
.DisplayMember = "Descr"
End With
end sub
Friend Class ComboItem
Private lngKey As Long
Private strDescr As String
Public Sub New(ByVal vKey As Long, ByVal sDescr As String)
lngKey = vKey
strDescr = sDescr
End Sub
Public Property Key() As Long
Get
Return lngKey
End Get
Set(ByVal Value As Long)
lngKey = Value
End Set
End Property
Public Property Descr() As String
Get
Return strDescr
End Get
Set(ByVal Value As String)
strDescr = Value
End Set
End Property
End Class
|
|
|
|
|
