关于VB combobox 的问题

来源：百度知道 编辑：UC知道 时间：2024/06/18 14:44:12
现在我有2个combobox的控件和一个text的控件
想实现以下功能：
1、当combo1选择AA 时，combo2出现AB AC选项 ，然后combo2选择AB时，text出现"AB=A+B"
2、当我的combo1或则combo2的选项更改时，text也同样更改！

另外：我在text显示的时候采用的时click属性，我现在就没有办法解决text同步更改的功能！
请各位大大帮帮忙！谢谢！
试过了，不行，我估计是因为用click的时候，2个combo的值还没有赋予，所以text有数据出来！

在combo控件的click事件里改变text和另一个combo的内容
你在combo控件的click事件里重新初始化一下combo。
比如combo1的事件里面：

Private Sub Combo1_Click()
if combo1.text="AA" then
Combo2.Clear
Combo2.AddItem "AB"
Combo2.AddItem "AC"
end if
End Sub

combo2的click事件里面：
Private Sub Combo2_Click()
if combo2.text="AB" then
text1.text="AB=A+B"
elseif combo2.text="AC"
text1.text="AC=A+C"
else
text1.text="没有此选项"
end if
End Sub

代码如下,这个不仅限於AA选项,修改为其他选项时仍然可用(eg:aa,Aa,Bd,bD...):

Private Sub Combo1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To Combo1.ListCount
Combo2.Clear
For j = 1 To 2
Combo2.AddItem Left(Combo1.Text, 1) & Chr(Asc(Right(Combo1.Text, 1)) + j)
Next j
Next i
Combo2.ListIndex = 0
End Sub

Private Sub Com