First topic message reminder :
Nih Propertinya:
- Spoiler:
Komponen Property
Label Name : Label1Caption : USER
Label Name : Label1Caption : PASSWORD
TextBox Name : Text1Text : (dikosongkan)
TextBox Name : Text2Text : (dikosongkan)
PasswordChar : *
CommandButton Name : Command1Caption : LOGIN
CommandButton Name : Command2Caption : Keluar
Frame Name : Frame1Caption : LOGIN
Buat Code Source nya = Jangan Lupa= ++++++
CODE:
- Code:
-
Private Sub Command1_Click()
If txt1.Text ="badboy" And txt2.Text ="123456"end if
MsgBox ("Welcome_For_Login")
Else
MsgBox ("Gagal Login")
MsgBox ("User/Password Anda salah")
End If
txt1.Text = ""
txt2.Text = ""
txt1.SetFocus
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
- Spoiler:
BUAT YG ===> If txt1.Text ="badboy" And txt2.Text ="123456"end if
Kalian ganti dengan sesuka hati?