交通银行手机积分兑换:初学VB请求帮助!

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/05 18:52:53
我在写一个用户名与密码的验证界面

用text2 做密码 文本筐
text1 做用户名 文本框

我我要实现如下↓

如果 text1 和 text2 等于 123456 就执行Timer1.Enabled = True

如果text1 和 text2 不等于 123456 就不执行Timer1.Enabled = False

请问这句完整代码 应该怎么写?

Private Sub Text1_Change()
If Text1.Text = "123456" And Text2.Text = "123456" Then
Timer1.Enable = True
Else
Timer1.Enabled = False
End Sub

Private Sub Text2_Change()
If Text1.Text = "123456" And Text2.Text = "123456" Then
Timer1.Enable = True
Else
Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
If Text1.Text = "123456" And Text2.Text = "123456" Then
Timer1.Enable = True
Else
Timer1.Enabled = False
End Sub