Question

两个Combo1组件，选择其中一个Combo1组件中选项，另外一个Combo1组件中自动生成选项，VB怎么实现？

telnet 路由器设备利用VB怎么实现？

Answer 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