在VB.NET WinForms(.NET Core 3.1)中如何实现可查询的国家-数值映射结构

1. 最优数据存储方式 #

优先选择List(Of KeyValuePair(Of String, Integer))作为存储结构：

• 原生支持「显示文本-绑定值」的配对结构，无需额外自定义类型
• 对绑定值没有唯一性限制，完全满足多国家对应同一个数值的需求
• 内存占用低，绑定和读取性能优于DataTable等重量级结构

如果后续需要扩展国家的其他属性（比如区号、ISO代码等），可以自定义轻量类：

Public Class CountryItem
    ''' <summary>
    ''' 下拉框显示的国家名称
    ''' </summary>
    Public Property DisplayName As String
    ''' <summary>
    ''' 绑定的业务数值
    ''' </summary>
    Public Property BindValue As Integer
End Class

2. 下拉框绑定流程 #

以KeyValuePair方案为例，绑定代码如下：

' 初始化国家数据
Dim countryData As New List(Of KeyValuePair(Of String, Integer)) From {
    New KeyValuePair(Of String, Integer)("Germany", 1),
    New KeyValuePair(Of String, Integer)("Netherlands", 2),
    New KeyValuePair(Of String, Integer)("Belgium", 2)
}

' 绑定到ComboBox控件
With ComboBox1
    .DataSource = countryData
    .DisplayMember = "Key" ' 指定显示国家名
    .ValueMember = "Value" ' 指定存储的绑定值
End With

如果使用自定义的CountryItem类，仅需将DisplayMember改为DisplayName、ValueMember改为BindValue即可。

3. 获取选中项的绑定值 #

直接读取ComboBox的SelectedValue属性即可，无需遍历所有选项：

' 先判断是否有选中项，避免空引用报错
If ComboBox1.SelectedIndex > -1 Then
    Dim targetValue As Integer = CInt(ComboBox1.SelectedValue)
    ' 此处直接使用targetValue做后续计算、逻辑处理即可
End If

小提示：如果需要添加默认提示项，可在绑定前向countryData插入第一条数据：countryData.Insert(0, New KeyValuePair(Of String, Integer)("请选择国家", -1))，后续判断值为-1时提示用户完成选择即可。

内容的提问来源于stack exchange，提问作者Leon S