Question

In lack of a Value property I planned to use Classes for storing Text and Value properties for my ComboBox items. So far I’ve succeeded.

Here is my class:

Public Class clCombobox
Public cname As String
Public cvalue As Integer

    Public Property Display() As String
    Get
        Return Me.cname
    End Get
    Set(ByVal value As String)
        Me.cname = value
    End Set
End Property
Public Property Value() As String
    Get
        Return Me.cvalue
    End Get
    Set(ByVal value As String)
        Me.cvalue = value
    End Set
End Property


Public Sub New(ByVal name As String, ByVal value As String)
    cname = name
    cvalue = value
End Sub

Public Overrides Function ToString() As String
    Return cname
End Function
End Class

Data is being added to the ComboBox like this:

cmbComboxBox.Items.Add(New clCombobox("Text", 1))

It seems like this works so far. But how do I get data back. Like if I want the value of the selected CheckBox item?

I tried using:

CType(cmbCombobox.SelectedItem, clCombobox).Value()

Did not work.

Answer 1

As per the documentation, use the SelectedItem property to retrieve the object that you stored in it.

Code to retrieve value you want:

Dim selectedItem as clCombobox = CType(cmbComboBox.SelectedItem, clCombobox)
Dim value As Integer = selectedItem.cvalue