VB制作登錄框密碼賬戶確認進入另壹個窗口

首先添加兩個窗體form1和form2，再在form1上添加控件:Label1、Label2、textbox1、textbox2和壹個command1。

假如form1是系統的“歡迎界面” form2是“系統界面”，那麽在form1中寫下：

Dim i As Integer

Private Sub Command1_Click()

If Text1.Text = "admin" And Text2.Text = "admin" Then

Form1.Hide

Form2.Show

Else

i = i + 1

MsgBox "用戶名或密碼錯誤" & vbLf & vbLf & " " & "( " & i & " of " & "3 )", vbInformation, " 警告"

End If

If i >= 3 Then

MsgBox "登陸失敗，程序關閉", vbCritical, "登陸失敗"

Unload Form1

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "請輸入用戶名："

Label2.Caption = "請輸入密碼："

Text1.Text = ""

Text2.Text = ""

Command1.Caption = "登 陸"

Form1.Caption = "用戶登陸驗證窗口"

End Sub

上一篇:libsvm工具箱和lssvm工具箱有什麽區別

下一篇:排列a的算法是什麽？