.net 在没有数据源的组合框上设置DisplayMember和ValueMember

我想要一个

DisplayMember

和一个

ValueMember

在一个

ComboBox

上，它只有4个值，并且它们总是相同的

是否可以不使用

数据表

作为

数据源

并且不创建类

我想要一些类似于：

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

ValueMember= "Multiple"  
DisplayMember= "Multiple and different numbers"

ValueMember= "Repeated"  
DisplayMember= "One number repeated x times"

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

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

---

您必须对其进行一些调整，更改显示和值成员，但我相信这可能是您想要的…？

我想我现在明白了。。。可能是这样的：

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

ValueMember= "Multiple"  
DisplayMember= "Multiple and different numbers"

ValueMember= "Repeated"  
DisplayMember= "One number repeated x times"

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

---

信用证：

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

Dim值作为新列表（元组的（字符串的，字符串的））（）
添加（新元组（“固定”、“特定且唯一的编号”））
添加（新元组（“多个”、“多个和不同的数字”））
添加（新元组（“重复”，“一个数字重复x次”））
“等等。。。
combobox.ValueMember=“Item1”
combobox.DisplayMember=“Item2”
combobox.DataSource=值

但为了可读性，我建议使用自定义类。

---

或者，如果重用自定义类比使用Tuple更好，那么从根本上说，您不能做您想做的事情：

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

Value-

和

DisplayMember

不是用于指定文字值，而是用于指示其他内容（如类）中的属性名

---

不使用

数据源

（标题）与不使用类（问题文本）不同。创建类的方法有以下几种：

现有网络类型 您可以使用现有的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"

没有数据源-数据位于items集合中。还有另一个答案中解释的

Tuple

---

匿名类型 使用一个字符串作为另一个字符串的键是非常奇怪的。通常，在代码中，您会希望一些不太容易因打字错误而出错的内容。在某个地方键入“Fized”会破坏您的代码。

Enum

更有意义：

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

现在，您可以创建一个

列表

，该列表链接用户描述和

枚举

常量：

' 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

这将创建一个匿名类型（没有类的对象），其名称和值属性映射到枚举和描述数组。如果

Enum

值不是连续的（例如{8,65,99}），则必须以不同的方式构建列表

这将创建匿名类型对象的临时集合，并将其指定为数据源。您将无法访问其他方法中的

名称

和

值

属性，因为无法将匿名类型传递给其他方法。但是用户将看到所需的文本，NET/VB将提供作为枚举的值作为

SelectedValue

。使用

SelectedValue

changed事件：

' 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”作为字符串进行测试，而是使用了enum，但每一位都是可读的

MSDN:

---

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

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

---

该类非常简单，在将任何

名称

与任何

值

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

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

---

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

这些用于映射对象的属性。如果你有“价值观”，那就没有什么可映射的了。具体是什么？@puropoix我需要值（字符串），但我想显示另一个带解释的字符串，直到不清楚为止，但也许您可以使用该格式event@Plutonix我编辑了我的问题。希望现在清楚什么是

ActiveCB

？我不想使用自定义类。@genespos只需删除它，它将是匿名类型。你也可以从一个窗口引导它哦，对不起，我忘了。。。我的错。我不理解你的应用，当它只是类似于'Class ActiveCB Property Name As String Property ID As Byte End Class'@puropoix时，我不明白你的意思：我如何在不设置新类的情况下使用这段代码？非常感谢你的详细回答。我会研究它（我仍然不能理解你所展示的一切）