用VB分歧

来源：百度知道 编辑：UC知道 时间：2024/06/04 19:46:27
就是像QQ一样，没有QQ帐号或密码不行，但我只要一个文本框
需要在文本框里输入数字，才能摁Command

Private Sub Form_Load()
Command1.Enabled = False
Text1.Text = ""
End Sub

Private Sub Text1_Change()
If IsNumeric(Text1.Text) Then Command1.Enabled = True
End Sub

Private Sub Command1_Click()
If Text1.Text="xxxxxx" Then 'xxxxxx 是假定密码
'做下一步的事情
End If
End Sub

你想做什么,VB里新建一个登录窗体即可的哦