我想选A在文本框中显示100 选B就在文本框中显示150
请大哥们帮忙
Private Sub Combo1_Click()
If Combo1.Text = "A" Then Text1 = 100
If Combo1.Text = "B" Then Text1 = 150
If Combo1.Text = "C" Then Text1 = 200
End Sub
Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
End Sub
If Combo1.Text = "A" Then Text1 = 100
If Combo1.Text = "B" Then Text1 = 150
If Combo1.Text = "C" Then Text1 = 200
End Sub
Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2006-12-04
你可以在模拟一个组合框(上面放一个文本框text,下面放一个列表框list),然后在list的click中写代码.
private sub list1_click()
select case list1.list(list1.listindex)
case "A"
text1.text=100
case "B"
text1.text=150
end select
end sub
试试!
private sub list1_click()
select case list1.list(list1.listindex)
case "A"
text1.text=100
case "B"
text1.text=150
end select
end sub
试试!
