Question

VB中在Frame2内设置了4个ComboBox控件,它们的可选项一样,怎么设置不重复选择,当出现重复时,前一个控件为空

4个ComboBox控件(分别是Combo1,Combo3,Combo5,Combo7)的内容都是这样的,假设当前Combo1选的是1,当Combo3或者Combo5又或者Combo7也选择变成1后,Combo1变成空,.....要4个Combo都关联上,如果可以实现的话,麻烦指导下,帮忙给出代码,附带详解..或者有更好的办法也可以推荐下...我是新手请各位高手帮忙指导下,谢谢了!

Answer 1

Private Sub Combo_click(Index As Integer)
For i = 0 To 3
If Index <> i Then '除现在点击的这个combo除外 则执行代码
If Combo(Index).ListIndex = Combo(i).ListIndex Then Combo(i).ListIndex = -1
'如果当前点击的combo选择项和 其他一样 则其他的combo修改选中项
End If
Next
End Sub

Private Sub Form_Load()
For i = 1 To 10
For j = 0 To 3
Combo(j).AddItem i
Next
Next
End Sub

追问

Private Sub Form_Load()
For i = 1 To 10
For j = 0 To 3
Combo(j).AddItem i
Next
Next
End Sub 求解...

追答

只是为了添加数据 测试而已

追问

没有关系吗?可以把Form_load()改成在Frame2内的吗?

追答

你的第一步将Combo1,Combo3,Combo5,Combo7 这4个控件名称统一修改成combo 然后他们的index属性就变成0,1,2,3 成为控件数组 然后你把我的combo_click这个过程代码复制到你工程里~~
form_load 里的你就不需要了

追问

不需要最好了,,,因为我不会用...哈哈

追答

Private Sub Form_Load()
For i = 1 To 10
For j = 0 To 3
Combo(j).AddItem i
Next
Next
End Sub
把这段去掉啊

你可以加我百度HI 你实在弄不来的话 你发文件给我

Answer 2

Private Sub Combo3(后一个)_Change()
If Combo3(后一个).Text = Combo1(前一个).Text Then Combo1(前一个).Text = ""
End Sub