yang pertama dilakukan adalah membuat text box dua buah dan kemudian anda menambahkan comandbutton kemudian text box yang pertama diberi nama txtUserName dan text box yang kedua diberinama txtPassword kemudian nama
comandbutton diganti dengan cmdok biar anda tidak salah mengisikan password dan username berikan lah nama dengan cara membuat nama username pada txtusername dan berikan password pada txtpasword ingat setiap memberi nama pada text box dan comendbutton jangan lah disepace.
kemudian anda kelik dua kali pada cmdok kemudian isikan code ini.
dan kemudia anda menambahkan satu lagi form agar dapat mengetes form login berjalan tidak cara menambahkan form adalah : klik projec yang ada di atas kemudian kelik add form klik open.
dan kemudia anda menambahkan satu lagi form agar dapat mengetes form login berjalan tidak cara menambahkan form adalah : klik projec yang ada di atas kemudian kelik add form klik open.
Private Sub cmdOK_Click()
If txtPassword = "password" And txtUserName = "username" Then
Me.Hide
Form1.Show
Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
No comments:
Post a Comment