两个Combo1组件,选择其中一个Combo1组件中选项,另外一个Combo1组件中自动生成选项,VB怎么实现?
1个回答
展开全部
Option Explicit
'定义一个二维数组
Dim 路由器(2, 5) As String '需要注意的是Y位必须以某类型中的最多型号设定
Private Sub Combo1_Click()
Dim I As Long
'加载二级列表
Combo2.Clear
For I = 1 To UBound(路由器, 2)
If Not 路由器(Combo1.ListIndex, I) = "" Then Combo2.AddItem 路由器(Combo1.ListIndex, I)
Next I
If Combo2.ListCount > 0 Then Combo2.ListIndex = 0
End Sub
Private Sub Form_Load()
Dim I As Long
'Combo1.Style = 2
'Combo2.Style = 2
路由器(0, 0) = "有线路由"
路由器(1, 0) = "无线路由"
路由器(2, 0) = "交换机"
路由器(0, 1) = "有线路由1"
路由器(1, 1) = "无线路由1"
路由器(2, 1) = "交换机1"
路由器(0, 2) = "有线路由2"
路由器(1, 2) = "无线路由2"
路由器(2, 2) = "交换机2"
路由器(0, 3) = "有线路由3"
路由器(1, 3) = "无线路由3"
路由器(2, 3) = "交换机3"
路由器(0, 4) = "有线路由4"
路由器(1, 4) = "无线路由4"
'路由器(2, 4) = "交换机4"
路由器(0, 5) = "有线路由5"
'路由器(1, 5) = "无线路由5"
'路由器(2, 5) = "交换机5"
'载入一级列表
Combo1.Clear
For I = 0 To UBound(路由器, 1)
If Not 路由器(I, 0) = "" Then Combo1.AddItem 路由器(I, 0)
Next I
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
'定义一个二维数组
Dim 路由器(2, 5) As String '需要注意的是Y位必须以某类型中的最多型号设定
Private Sub Combo1_Click()
Dim I As Long
'加载二级列表
Combo2.Clear
For I = 1 To UBound(路由器, 2)
If Not 路由器(Combo1.ListIndex, I) = "" Then Combo2.AddItem 路由器(Combo1.ListIndex, I)
Next I
If Combo2.ListCount > 0 Then Combo2.ListIndex = 0
End Sub
Private Sub Form_Load()
Dim I As Long
'Combo1.Style = 2
'Combo2.Style = 2
路由器(0, 0) = "有线路由"
路由器(1, 0) = "无线路由"
路由器(2, 0) = "交换机"
路由器(0, 1) = "有线路由1"
路由器(1, 1) = "无线路由1"
路由器(2, 1) = "交换机1"
路由器(0, 2) = "有线路由2"
路由器(1, 2) = "无线路由2"
路由器(2, 2) = "交换机2"
路由器(0, 3) = "有线路由3"
路由器(1, 3) = "无线路由3"
路由器(2, 3) = "交换机3"
路由器(0, 4) = "有线路由4"
路由器(1, 4) = "无线路由4"
'路由器(2, 4) = "交换机4"
路由器(0, 5) = "有线路由5"
'路由器(1, 5) = "无线路由5"
'路由器(2, 5) = "交换机5"
'载入一级列表
Combo1.Clear
For I = 0 To UBound(路由器, 1)
If Not 路由器(I, 0) = "" Then Combo1.AddItem 路由器(I, 0)
Next I
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询