Question

VB中如何实现输入符合下拉框选项的代码就能在下拉框中显示全部选项的内容

想请教下在VB的COMOBOL下拉列表框中有1-大学生；2-中学生；3-小学生这样的选项，要求，我往该列表框中输入3时无需回车，该列表框就显示3-小学生这样的值，然后自动跳到下一文本框，（列表框的选项已做好）谢谢

Answer 1

Private Sub Form_Load()
 Combo1.AddItem "1 - 大学生"
 Combo1.AddItem "2 - 中学生"
 Combo1.AddItem "3 - 小学生"
End Sub
Private Sub Combo1_Change()
 For i = 1 To Combo1.ListCount
   If Combo1.Text = i Then Combo1.ListIndex = i - 1: Exit For
 Next
 Text1.SetFocus    '下一文本框Text1
End Sub
'请参考采纳！谢谢！

追问

那这个选项的代码改为11-大学生，23-中学生，32-小学生这样没有规律的，而且选项有好多时，该如何编写代码哈，谢谢你，朋友

Answer 2

combo控件的change事件 判断combo控件的text属性是否为 字符串"3"
如果是字符串"3" , 设置 listindex属性值为2 ，然后把输入焦点定位到text控件
Private Sub Combo1_Change()
If Combo1.Text = "3" Then
Combo1.ListIndex = 2
Text1.SetFocus
End If
End Sub