在没有 DataSource 的情况下在 ComboBox 上设置 DisplayMember 和 ValueMember

cbActive 是一个组合框

Private Sub LoadActiveCB()

    Dim _Active As New List(Of ActiveCB)

    _Active.Add(New ActiveCB With {.Name = "Fixed", .ID = 1})
    _Active.Add(New ActiveCB With {.Name = "Multiple", .ID = 2})
    _Active.Add(New ActiveCB With {.Name = "Repeated", .ID = 3})

    cbActive.DataSource = _Active
    cbActive.DisplayMember = "Name"
    cbActive.ValueMember = "ID"

End Sub

Class ActiveCB
    Property Name As String
    Property ID As Byte
End Class

你必须稍微调整一下，改变显示和值成员，但我相信这可能是你想要的......？

我想我现在明白了......也许是这样的：

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim comboSource As New Dictionary(Of String, String)()
        comboSource.Add("1", "Sunday")
        comboSource.Add("2", "Monday")
        comboSource.Add("3", "Tuesday")
        comboSource.Add("4", "Wednesday")
        comboSource.Add("5", "Thursday")
        comboSource.Add("6", "Friday")
        comboSource.Add("7", "Saturday")
        ComboBox1.DataSource = New BindingSource(comboSource, Nothing)
        ComboBox1.DisplayMember = "Value"
        ComboBox1.ValueMember = "Key"
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim key As String = DirectCast(ComboBox1.SelectedItem, KeyValuePair(Of String, String)).Key
        Dim value As String = DirectCast(ComboBox1.SelectedItem, KeyValuePair(Of String, String)).Value
        MessageBox.Show(key & "   " & value)
    End Sub
End Class

信用：http://net-informations.com/q/faq/combovalue.html

使用某个类是一种解决方案，但因为您不想使用自定义类 - 使用内置类型。

Dim values As New List(Of Tuple(Of String, String))()
values.Add(New Tuple("Fixed", "Specific and unique number"))
values.Add(New Tuple("Multiple", "Multiple and different numbers"))
values.Add(New Tuple("Repeated", "One number repeated x times"))
'and so on...

combobox.ValueMember = "Item1"
combobox.DisplayMember = "Item2"
combobox.DataSource = values

元组（T1、T2）类

但为了可读性，我建议使用自定义类。
或者只是在重用自定义类的情况下比Tuple

从根本上说，你不能做你想做的事：

ValueMember= "Fixed"  
DisplayMember= "Specific and unique number"

Value-并且不用于指定文本值，而是用于指示其他内容（如类）中的属性名称。DisplayMember

---

不使用（标题）与不使用类（问题文本）不同。创建类还有其他替代方法：DataSource

现有 NET 类型

您可以使用现有的 NET 类将值与名称链接：KeyValuePair

cbox.Items.Add(New KeyValuePair(Of String, String)("Specific", 
         "Specific and unique number"))
cbox.Items.Add(New KeyValuePair(Of String, String)("Multiple", 
         "Multiple and different numbers"))
cbox.Items.Add(New KeyValuePair(Of String, String)("Repeated", 
         "One number repeated x times"))

cbox.ValueMember = "Key"
cbox.DisplayMember = "Value"

没有 DataSource - 数据位于 items 集合中。正如另一个答案所解释的那样Tuple

---

匿名类型

使用一个字符串作为另一个字符串的键是很奇怪的。通常，在代码中，您会希望一些不太容易出现拼写错误的东西。在某处键入“Fized”会破坏您的代码。An 更有意义：Enum

Private Enum ValueStyle
    Specific = 0
    Multiple = 1
    Repeated = 2
End Enum

现在，您可以创建一个链接用户描述和常量：ListEnum

' fuller text descr of the enum for the user
Dim descr As String() = {"Specific and unique number",
                         "Multiple and different numbers",
                         "One number repeated x times"}
' get enum values into an array of ValueStyle
Dim values = [Enum].GetValues(GetType(ValueStyle)).Cast(Of ValueStyle).ToArray

' create a List of anon objects from the descr() and values()
Dim lst = values.Select( Function (q) New With
                       {.Value = q, .Name = descr (q)}
                    ).ToList()
    
cboPicker.ValueMember = "Value"
cboPicker.DisplayMember = "Name"
cboPicker.DataSource = lst

这将创建一个 Anonymous Type（一个没有类的对象），其 Name 和 Value 属性映射到 Enum 和 description 数组。如果值不是连续的（例如 {8， 65， 99}），则必须以不同的方式构建列表。Enum

这将创建 Anonymous Type 对象的临时集合，并将其指定为 DataSource。您将无法访问其他方法中的 and 属性，因为匿名类型无法传递给其他方法。但是用户将看到所需的文本，并且 NET/VB 将提供该枚举的值作为 .使用更改的事件：NameValueSelectedValueSelectedValue

' name user sees == cboPicker.Text
' value == cboPicker.SelectedValue boxed as Object

Dim userChoice As ValueStyle = CType(cboPicker.SelectedValue, ValueStyle)
If userChoice = ValueStyle.Specific Then
    '...
ElseIf userChoice = ValueStyle.Repeated Then
    '...
End If

请注意，该代码不是将“Fixed”测试为字符串，而是使用枚举，但仍然具有可读性。

MSDN：匿名类型 （Visual Basic）

---

这些符合不需要新类的标准，但请考虑：

Friend Class NameValuePair
    Public Property Name As String
    Public Property Value As Int32

    Public Sub New(n As String, v As Int32)
        Name = n
        Value = v
    End Sub

    Public Overrides Function ToString() As String
        Return Name
    End Function

End Class

该类非常简单，在将 any 与 any 相关联时几乎可以无限重用。它可以在任意数量的项目中与任意数量的基于列表的控件一起使用。创建和使用它们列表的代码比使用其他方法更简单。NameValue

给定一个指向 VB 中数据库实体的匿名类型的 IList，我使用它来构建一个匿名列表，其中一个成员指向 db 实体对象 （PO），另一个成员指向实体中值的复合 （Display）：

Dim aList = _BO_Data.Lines
       .Select(Function(PO) ew With {.ACBond = PO, .Display = (PO.Product.Code_item & " - " & PO.Product.Descr)}).ToList()

Combobox_Code_Product.DataSource = aList
Combobox_Code_Product.DisplayMember = "Display"
Combobox_Code_Product.ValueMember = "ACBond"

然后组合框 SelectedItem 是 ACBond 对象，我在列表中看到的是代码和产品描述的混合。