如何实现双ComboBox联动：从TXT加载城市与城镇数据

核心思路 #

先把城市与对应城镇的映射关系存储在字典中，当第一个ComboBox的选项变化时，从字典中取出对应城镇列表填充第二个ComboBox。

步骤1：定义数据存储结构 #

在窗体类中添加私有字典，用于保存城市到城镇列表的映射：

Private cityToTowns As New Dictionary(Of String, List(Of String))

步骤2：修改Form_Load事件，同时加载数据到字典和第一个ComboBox #

替换原有的Form_Load代码，解析每行数据并填充字典：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim lines() As String = File.ReadAllLines("C:\Users\CP.txt")
    For Each line As String In lines
        ' 提取城市名称（处理带空格的城市名，比如"City A"）
        Dim cityEndIndex As Integer = line.IndexOf(" (")
        If cityEndIndex = -1 Then Continue For ' 跳过格式无效的行
        Dim city As String = line.Substring(0, cityEndIndex).Trim()
        
        ' 提取括号内的城镇字符串
        Dim townStartIndex As Integer = line.IndexOf("(") + 1
        Dim townEndIndex As Integer = line.IndexOf(")")
        If townEndIndex <= townStartIndex Then Continue For
        Dim townsStr As String = line.Substring(townStartIndex, townEndIndex - townStartIndex).Trim()
        
        ' 拆分城镇字符串为列表，清理多余空格
        Dim townsArray() As String = townsStr.Split(","c)
        Dim townList As New List(Of String)
        For Each town As String In townsArray
            Dim trimmedTown As String = town.Trim()
            If Not String.IsNullOrEmpty(trimmedTown) Then
                townList.Add(trimmedTown)
            End If
        Next
        
        ' 将数据存入字典，并添加城市到第一个ComboBox
        If Not cityToTowns.ContainsKey(city) Then
            cityToTowns.Add(city, townList)
            cbbComunidad.Items.Add(city)
        End If
    Next line
End Sub

步骤3：添加第一个ComboBox的选择变更事件，实现联动 #

为cbbComunidad添加SelectedIndexChanged事件处理逻辑，更新第二个ComboBox的内容（注意替换cbbTown为你实际的第二个ComboBox控件名）：

Private Sub cbbComunidad_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbbComunidad.SelectedIndexChanged
    ' 清空第二个ComboBox
    cbbTown.Items.Clear()
    
    ' 获取当前选中的城市
    Dim selectedCity As String = cbbComunidad.SelectedItem.ToString()
    ' 从字典中取出对应城镇列表并填充
    If cityToTowns.ContainsKey(selectedCity) Then
        cbbTown.Items.AddRange(cityToTowns(selectedCity).ToArray())
    End If
End Sub

注意事项 #

• 确保第二个ComboBox的控件名称与代码中的cbbTown一致，若你的控件名不同需自行替换。
• 代码中加入了基础的格式容错处理，可跳过文件中格式错误的行。
• 确认文件路径"C:\Users\CP.txt"正确无误，若路径有变动需同步修改。

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