Question

如何设置VB中下拉菜单有多个选择？

Answer 1

Private Sub Combo1_Change()
q = Combo1.Text
End Sub

Private Sub Command1_Click()
If Combo1.Text = "xsh" And Text1.Text = "123456" Then
Form2.Show
Form1.Hide
ElseIf Combo1.Text = "hhr" And Text1.Text = "12345" Then
Form2.Show
Form1.Hide
ElseIf Combo1.Text = "smt" And Text1.Text = "1234" Then
Form2.Show
Form1.Hide
Else
MsgBox "密码错误或账号错误，请重新输入!"
End If
End Sub

Answer 2

使用MenuStrip控件。。