中科新闻网三原光大精密铸造厂:VB 组合框问题, 老师请指教
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 08:19:33
两个组合框, 在同一个区域
第一个组合框 选项有两个 A与B
当第一个组合框,选A的时候 第二个组合框出现的选项是
1 2 3 4 5 当第一个组合框,选B的时候 第二个组合框出现的选项是, 6 7 8 9 10 这个怎么实现,太重要了,,
谢谢老师,回答一下
下面的不行啊,,
我要显现的目的是
比如当第一组合框,选服装的时候,第二组合框选项是
休闲 晚装 时尚 等等
Private Sub Combo1_Click()
Combo2.Clear
If Combo1.Text = "A" Then
Combo2.Text = "1"
Combo2.AddItem ("1")
Combo2.AddItem ("2")
Combo2.AddItem ("3")
Combo2.AddItem ("4")
Combo2.AddItem ("5")
ElseIf Combo1.Text = "B" Then
Combo2.Text = "6"
Combo2.AddItem ("6")
Combo2.AddItem ("7")
Combo2.AddItem ("8")
Combo2.AddItem ("9")
Combo2.AddItem ("10")
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem ("A")
Combo1.AddItem ("B")
Combo1.Text = "A"
Combo2.Text = "1"
Combo2.AddItem ("1")
Combo2.AddItem ("2")
Combo2.AddItem ("3")
Combo2.AddItem ("4")
Combo2.AddItem ("5")
End Sub
Private Sub Combo1_CLICK()
Combo2.Clear
If Combo1.Text = "A" Then
For I = 1 To 5
Combo2.AddItem I
Next
Else
For I = 6 To 10
Combo2.AddItem I
Next
End If
End Sub
上面的方法不对，你那样并不能时时显现出来他们，所以不正确
你想作到这点就不要用listbox啊。用别的很简单就实现了啊
Private Sub Combo1_Change()
If Combo1.Text = "a" Then
Combo2.Clear
Combo2.AddItem "12345"
ElseIf Combo1.Text = "b" Then
Combo2.Clear
Combo2.AddItem "678910"
End If
End Sub