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

Question

该问题来自社区帖: https://bbs.csdn.net/topics/617242303.

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

 

Answer 1

引用 皆我百晓生 小程序回复内容作答：
在VB中，可以通过在模块层级定义一个全局字典变量来实现全局字典的定义。全局字典可以在整个项目的任何地方访问和使用。

首先，在模块层级声明一个全局字典变量：

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

然后，在需要的地方使用dictionary变量即可。

对于相互联动的ComboBox，你可以通过处理选中项改变事件来实现。以下是一个简单的示例，演示了四级ComboBox的相互联动：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 加载第一级ComboBox的选项
    ComboBox1.Items.AddRange(GetOptionsFromTable("FirstLevelTable"))
End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    ' 清空其他级别的ComboBox
    ComboBox2.Items.Clear()
    ComboBox3.Items.Clear()
    ComboBox4.Items.Clear()
    
    ' 获取第二级ComboBox的选项
    ComboBox2.Items.AddRange(GetOptionsFromTable("SecondLevelTable", ComboBox1.SelectedItem.ToString()))
End Sub

Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
    ' 清空其他级别的ComboBox
    ComboBox3.Items.Clear()
    ComboBox4.Items.Clear()
    
    ' 获取第三级ComboBox的选项
    ComboBox3.Items.AddRange(GetOptionsFromTable("ThirdLevelTable", ComboBox2.SelectedItem.ToString()))
End Sub

Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
    ' 清空其他级别的ComboBox
    ComboBox4.Items.Clear()
    
    ' 获取第四级ComboBox的选项
    ComboBox4.Items.AddRange(GetOptionsFromTable("FourthLevelTable", ComboBox3.SelectedItem.ToString()))
End Sub

Private Function GetOptionsFromTable(tableName As String, parentValue As String) As String()
    ' 从表格中获取相应的下拉内容
    ' 使用parentValue参数来根据父级选项过滤下拉内容
    ' 返回一个字符串数组作为下拉选项
    
    ' 这里只是一个示例，实际上需要根据你的需求来实现该方法
    ' 可以使用数据库查询或者其他方式来获取下拉内容
    
    ' 返回一个假的下拉选项数组
    Dim options As String() = {"Option 1", "Option 2", "Option 3"}
    
    Return options
End Function

上面的示例是一个简化的版本，你可以根据自己的需求扩展和修改。其中GetOptionsFromTable函数用于从表格中获取相应的下拉内容，你需要根据你的实际情况来实现该方法。