Double value v ComboBox – Text and Value

Nejprve si vytvříme třídu ComboBoxItem

Public Class ComboBoxItem
     Public ReadOnly Value As String
     Public ReadOnly Text As String
     Public Sub New(ByVal Value As String, ByVal Text As String)
          Me.Value = Value
          Me.Text = Text
     End Sub
     Public Overrides Function ToString() As String
          Return Text
     End Function
End Class

A protože do Comboboxu lze přidávat Items typu Object, není nic snazšího než přidávat Items typu ComboBoxItem. Snadné že?

Sub ComboBoxAddItemsSample()
     Dim i As Integer
     Dim item As ComboBoxItem
     Dim cmbBox As New ComboBox 

     cmbBox.Items.Clear()
     For i = Asc("A") To Asc("Z")
          item = New ComboBoxItem(Chr(i), Chr(i) & ":")
          cmbBox.Items.Add(item)
     Next i
End Sub
Příspěvek byl publikován v rubrice ASP.NET (C#, VB) a jeho autorem je admin. Můžete si jeho odkaz uložit mezi své oblíbené záložky nebo ho sdílet s přáteli.

Napsat komentář

Vaše emailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *