查找组合框项目

Question

对于这个问题，我做了一个简单的课：

Public Class ListBoxEntry
    Public Property ID As Integer
    Public Property Text As String

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

我创建了此类的一些实例，并将它们添加到组合框中：

...
While DR.Read
  LI = New ListBoxEntry
  LI.ID = DR("ID") ' ID is an integer value
  LI.Text = DR(Feldname) ' Feldname is a string
  cmbList.Items.Add(LI)
End While

我无法通过代码将组合框设置为特定值的有效代码。 例如，这些是我的三个条目（ID-Feldname）：

1 - One    (value 1, shown text in combobox "One")
2 - Two    (value 2, shown text in combobox "Two")
3 - Three  (value 3, shown text in combobox "Three")

Combobox1.SelectedIndex = somehow(2) <- here I want to set the combobox to the second entry (2), so "two" is selected

我需要哪种安全代码？

Answer 1

您应该将类​​的实例添加到数组或集合中，然后将其绑定到ComboBox ，例如

With ComboBox1
    .DisplayMember = "Text"
    .ValueMember = "ID"
    .DataSource = myList
End With

然后，您可以将ID值分配给ComboBox的SelectedValue属性，以选择具有该ID的项目，例如

ComboBox.SelectedValue = 2

那将在控件中显示“ Two”。