In früheren VB-Versionen (VB5, VB6) verfügte das ComboBox- bzw. ListBox-Control über eine zusätzliche Eigenschaft "ItemData", in der man einen numerischen Wert für jeden einzelnen Eintrag der Combo-/ListBox speichern konnte (bspw. den ID-Wert einer DB-Tabelle). Unter VB.NET gibt es diese Eigenschaft (leider) nicht mehr. Da die Items-Auflistung jedoch komplette Objekte aufnehmen kann, können wir die "fehlende" ItemData-Eigenschaft wie folgt realisieren. Fügen Sie Ihrem Projekt ein neues Klassenmodul mit folgendem Code hinzu: Public Class MyListItem ' Eigenschaftsvariablen Dim m_Text As String Dim m_ItemData As Integer ' Initialisiern: Text und ItemData werden übergeben Public Sub New(ByVal Text As String, ByVal ItemData As Integer) m_Text = Text m_ItemData = ItemData End Sub ' Text-Eigenschaft (Wert, der in der ComboBox-Liste angezeigt wird) Property Text() As String Get Return m_Text End Get Set(ByVal Value As String) m_Text = Value End Set End Property ' ItemData-Eigenschaft (Wert, der zusätzlich zu jedem Eintrag gespeichert wird) Property ItemData() As Integer Get Return (m_ItemData) End Get Set(ByVal Value As Integer) m_ItemData = Value End Set End Property Public Overrides Function ToString() As String Return m_Text End Function End Class Das Füllen der Combo- bzw. ListBox erfolgt dann so: Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' ComboBox füllen With ComboBox1 .Items.Add(New MyListItem("Eintrag 1", 1)) .Items.Add(New MyListItem("Eintrag 2", 2)) ... End With End Sub Um den Wert von "ItemData" später wieder auszulesen, gehen Sie wie folgt vor: Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged ' Ausgabe "Text" und "ItemData" Dim oItem As MyListItem = ComboBox1.SelectedItem MsgBox(oItem.Text & vbCrLf & oItem.ItemData.ToString) End Sub |