VB中如何实现输入符合下拉框选项的代码就能在下拉框中...
发布网友
发布时间：2024-05-01 12:31
共1个回答
热心网友
时间：2024-05-09 19:06
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
'请参考采纳！谢谢！
