VB中选择下拉列表的问题

来源：百度知道 编辑：UC知道 时间：2024/06/04 07:25:01
已经在VB里做好了一个下拉列表，供选择的内容有“A，B，C，D，E”5个，现在我想要在下拉列表框选择A，下面的text文本框里就要显示1；选B的话显示2，选C显示3，选D显示4，选E显示5，怎么实现？

Private Sub Combo1_Change()
Text1.Text = Combo1.ListIndex + 1
End Sub

Private Sub Combo1_click()
Text1.Text = Combo1.ListIndex + 1
End Sub

Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
Combo1.AddItem "E"
Combo1.Text = "A"
Text1.Text = 1
End Sub

相信你能看懂吧。只建立一个文本框和一个下拉列表框。复制代码即可。。不要忘了把分给我啊！！！！！

combo1的属性栏里有个LIST属性框，，
在里面输入combo的内容，输完一排按CTRL+ENTER 切换到下一排

加如代码
Private Sub Combo1_click()
Text1.Text = Combo1.ListIndex + 1'combo.listindex是指每一排的数值 ，
‘第一排的值对应的数字是0，第二排是1。。依次类推

End Sub

private sub combobox1_change()
text1.text=combobox1.listindex+1
end sub

combobox1,text1分别是你的下拉列表和文本框的名称。