Question

我希望在DisplayMember上有一个ValueMember和一个ComboBox，它只有4个值且它们始终相同。

是否可以不使用DataTable作为DataSource并且不创建课程？

我希望有类似的东西：

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

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

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

Answer 1

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

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

匿名类型

使用一个字符串作为另一个字符串的键非常奇怪。通常在代码中，您会想要一些不太容易出错的错误。打字＆＃34; Fized＆＃34;某处破坏了你的代码。 Enum更有意义：

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

现在，您可以创建一个List链接用户的描述和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

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

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

' 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

请注意，而不是测试＆＃34;固定＆＃34;作为一个字符串，代码使用枚举，但仍然是可读的。

MSDN： Anonymous Types (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

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

Answer 2

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

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

Tuple(Of T1, T2) Class

但为了便于阅读，我的建议使用自定义类或者只是在重用自定义类的情况下优于Tuple

Answer 3

cbActive是一个组合框

jsp:include

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

Answer 4

我想我现在得到它......也许是这样的：

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

Answer 5

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

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对象，我在列表中看到的是代码和产品描述的混合。

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

5 个答案:

现有的NET类型

匿名类型