Vb怎么定义全局字典，怎么解决相互联动的combobox（比较急）

[yusupjanx]

如题，Vb怎么定义全局字典，怎么解决相互联动的combobox，总共四级combobox，而且是需要程序从表格里获取下拉内容

 

[浪客]

combobox的Change事件中修改下一级combobox的内容。

[李余博睿（新疆）]

http://t.csdn.cn/sAMyn

[Evan_422]

首先，你需要在VB中声明一个全局字典（Module-level Dictionary）来存储四级ComboBox的数据源。你可以在模块（Module）中声明这个字典，以便在整个应用程序中都能访问它：

Module GlobalModule
    Public ComboBoxData As New Dictionary(Of String, Dictionary(Of String, List(Of String)))
End Module

然后需要为四个ComboBox控件创建事件处理程序。假设这四个ComboBox控件分别为ComboBox1、ComboBox2、ComboBox3和ComboBox4。以下是ComboBox1的示例事件处理程序：

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    ' 获取ComboBox1的选择项
    Dim selectedItem As String = ComboBox1.SelectedItem.ToString()

    ' 使用选定项从全局字典中获取ComboBox2的数据源
    Dim comboBox2Data As Dictionary(Of String, List(Of String)) = ComboBoxData(selectedItem)

    ' 清空ComboBox2并添加新数据
    ComboBox2.Items.Clear()
    ComboBox2.Items.AddRange(comboBox2Data.Keys.ToArray())
End Sub

然后，你可以为ComboBox2、ComboBox3和ComboBox4创建类似的事件处理程序，以便它们能够相互联动。确保在每个ComboBox的事件处理程序中更新下一个级别的ComboBox的数据源。

最后，你需要加载初始数据源到ComboBox1中，可能是从表格中获取。这可以在应用程序启动时或其他合适的地方完成。例如：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 假设你从表格中获取了ComboBox1的初始数据
    ' 这里示例数据，你需要根据你的实际情况来获取数据并填充ComboBoxData字典
    ComboBoxData.Add("Category1", New Dictionary(Of String, List(Of String)) From {
        {"Subcategory1.1", New List(Of String) From {"Item1.1.1", "Item1.1.2"}},
        {"Subcategory1.2", New List(Of String) From {"Item1.2.1", "Item1.2.2"}}
    })

    ' 填充ComboBox1
    ComboBox1.Items.AddRange(ComboBoxData.Keys.ToArray())
End Sub

[草履虫程序员]

也可以跟数据库结合，做一个智能匹配的函数。

[CSDN-Ada助手]

您的问题已经帮您同步至问答, 链接: https://ask.csdn.net/questions/7998968, 请您保持关注, 如果回答有帮助解决此问题, 麻烦您动动小手给相关的回答点赞, Ada会在评论区为您更新结题状态