我做了个普通的小外壳 打帐号密码内种的 怎么才能让他打完密码后在点登陆 不打的时候点不好使

解决方案 »

  1.   


    '增加二个文本框。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