各コンボボックスアイテムの値を保存する

Question

Valueプロパティが不足しているので、私はアイテムにTextとValueのプロパティを格納するためにクラスを使用する予定でした。今まで私は成功しました。これはこれまでの作品のように

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

それはそうです：

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 

データは、このようなComboBoxに追加されている：

はここに私のクラスです。しかし、どのようにデータを取り戻すのですか？選択したCheckBoxアイテムの値を希望する場合はどうですか？

私が使用してみました：

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

は動作しませんでした。

Answer 1

the documentationごとに、SelectedItem propertyを使用して、そこに格納されているオブジェクトを取得します。

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