Cara Membuat Form Login Sederhana dalam VB 6

Langkah pertama buat form baru..

Pilih 3 Label ; AREA LOGIN, ID, PASSWORD

Pilh 2 TextBox

Dan 2 CommondButton ; LOGIN & EXIT

Tulis ini Kedalam Listing ;

Private Sub Command1_Click()

If Text1.Text = "putro" And Text2.Text = "pamungkas" Then

MsgBox "password anda benar !!"

Me.Hide

MenuUtama.Show (selanjutnya mw ke form mana)

Else

MsgBox "ID atau Password Anda Salah"

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End If

End Sub

 

Private Sub Command2_Click()

End

End Sub

‘saran menggunakan 2 Listing yg diatas dan dibawah utk di bisa juga di ENTER pada Keyboard

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text1.Text = "putro" And Text2.Text = "pamungkas" Then

MsgBox "password anda benar !!"

Me.Hide

MenuUtama.Show ‘(selanjutnya mw ke form mana)

Else

MsgBox "ID atau Password Anda Salah"

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End If

End If

End Sub

Mainkan Imajinasi Anda.. Good LUCK…