Question

如何设置一个VB密码登陆框？

如何设置一个密码登陆框？

输入正确帐户与密码时 进入指定窗口

输入错误帐户或者错误密码时 进入指定窗口

以上写入 只打开一个窗体 而不是两个全部打开

如果没有输入帐户与密码的任何一项 则为无反映

最好有详细代码 名称Form1 代码保持不变

如果有好的答案 欢迎提出

Answer 1

'设置密码框的属性:passwordchar为*
'两个text,一个按钮
pravite sub command1_click()
if text1.text="" or text2.text="" then
'如果没有输入帐户与密码的任何一项 则为无反映
elseif text1.text="123" and text2.text="456" then
form2.show
me.hide
'输入正确帐户与密码时 进入指定窗口
else
form3.show
me.hide
'输入错误帐户或者错误密码时 进入指定窗口
end if
end sub

Answer 2

If Text1 = "" Then
Form2.Show
'form1
Me.Hide
End If
If Text1 <> "" Then
'form3
Me.Hide
End If
If Text2 = "******" Then

'form2
End If
If Text2 < "phzgviprevealmap" Then

'form3
Me.Hide
End If

Answer 3

　　以下登录界面

　　Dim t As Integer, s As Integer

　　Private Sub Form_Load()

　　t = 0

　　s = 10

　　Timer1.Interval = 1000

　　Timer1.Enabled = False

　　End Sub

　　Private Sub Command1_Click() '确定按钮

　　Timer1.Enabled = False

　　s = 10

　　If Text1.Text <> "经理" Or Text2.Text <> "12345" Then

　　t = t + 1

　　If t = 3 Then

　　MsgBox "你无权使用本系统", , "帐号错误"

　　Else

　　MsgBox "帐号错误，再试一次", , "帐号错误"

　　End If

　　Else

　　Form2.Show

　　Unload Me

　　End If

　　End Sub

　　Private Sub Command2_Click() '退出按钮

　　End

　　End Sub

　　Private Sub Timer1_Timer() '计时器

　　s = s - 1

　　If s = 0 Then

　　Timer1.Enabled = False

　　MsgBox "你无权使用本系统", , "帐号错误"

　　Unload Me

　　End If

　　End Sub

　　Private Sub Text_GotFocus()

　　Timer1.Enabled = True

　　End Sub

　　'''''''以下Form2窗体

　　Private Sub Command1_Click() '返回按钮

　　Form1.Show

　　Unload Me

　　End Sub