'增加二个文本框。Text1 用于输入帐号./ Text2 用于输入密码 '增加一个按扭 Command1 登陆按扭Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Command1.Enabled = False End SubPrivate Sub Text1_Change() '输入帐号 If Len(Text1.Text) > 0 And Len(Text2.Text) > 0 Then '如果帐号与密码都有填,按扭有效 Command1.Enabled = True Else Command1.Enabled = False End If End SubPrivate Sub Text2_Change() '输入密码 If Len(Text1.Text) > 0 And Len(Text2.Text) > 0 Then '如果帐号与密码都有填,按扭有效 Command1.Enabled = True Else Command1.Enabled = False End If End Sub
'增加二个文本框。Text1 用于输入帐号./ Text2 用于输入密码
'增加一个按扭 Command1 登陆按扭Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Enabled = False
End SubPrivate Sub Text1_Change() '输入帐号
If Len(Text1.Text) > 0 And Len(Text2.Text) > 0 Then '如果帐号与密码都有填,按扭有效
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End SubPrivate Sub Text2_Change() '输入密码
If Len(Text1.Text) > 0 And Len(Text2.Text) > 0 Then '如果帐号与密码都有填,按扭有效
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub