Cara Membuat Form Login Password Dengan VB 6.0

Sebelum ke pokok pembahasan saya akan menjelaskan sedikit tentang Visual Basic 6.0, Visual Basic adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman Visual Basic, dikembangkan oleh Microsoft sejak 1991, yang kemudian terus dirilis sesuai dengan tuntutan perkembanganya yang hingga kini muncullah Visual Basic versi 6.0 merupakan produk rilis di akhir tahun 1998.

Langsung saja kita ke cara membuat Form Login Password Dengan VB 6.0

Langkah - Langkah :
1. Buat project baru dengan  memilih Standart EXE pada New Project.
2. Isikan pada objek form tersebut beberapa objek seperti yang terlihat pada gambar dibawah ini :

3. Atur properti dari masing - masing objek diatas seperti tabel dibawah ini :

Nama Objek	Properti	Nilai
Label1	Name Caption Font	Label1 User Name Font : Comic Sans MS Font Style : Bold Size : 12
Label2	Name Caption Font	Label1 Password Font : Comic Sans MS Font Style : Bold Size : 12
Text1	Name Text	Text1 Tulisan Text 1 di hapus
Text2	Name Text PasswordChar	Text2 Tulisan Text2 di hapus *
Command1	Name	Command1

4. jika mau tambahkan kode untuk mentransparantkan form biar lebih keren lagi.

5.  Jika isi username adalah LABKOM dan password adalah siswa, lalu tombol ok ditekan maka akan menampilkan kotak pesan (MsgBox) "Selamat Datang di Lab Komputer"

6. Jika username / passwordnya salah, lalu tombol ok ditekan maka akan menampilkan kotak pesan (MsgBox) " Password Anda Salah, Silahkan Coba Lagi.!"

7. Setelah memasukan username lalu ingin memasukan lagi di password, biasanya kita menekan mouse/ tombol tab, sekarang buatlah dengan menggunakan tombol enter.

Saatnya ngoprek - ngoprek Codingan:

Option Explicit

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_COLORKEY = &H1

Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const MF_BYPOSITION = &H400&

Private Const MF_REMOVE = &H1000&

Private Sub Command1_Click()

If Me.Text1.Text = "LABKOM" And Me.Text2.Text = "siswa" Then

MsgBox ("Selamat datang di Lab Komputer"), , "Benar "

Else

MsgBox ("Password Anda Salah, Silahkan Coba Lagi !"), , "Salah"

Exit Sub

End If

End Sub

Private Sub Form_Load()

Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)

Me.Text1.Text = ""

Me.Text2.Text = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

Command1.SetFocus

End If

End Sub