
Untuk Membuat Form Login Sederhana di VB 6, ikuti langkah-langkah berikut ini:
- Buatlah dua buah Form, nama Form biarkan Defaut (Form1 dan Form2)
- Pada Form1 tambahkan komponen: - 2 TextBox (kosongkan text , pada PasswordChar TextBox2 isi tanda bintang (*))
- Pada Form2 Tambahkan 1 buah Label, ubah captionnya menjadi "INI FORM MENU UTAMA"
- Selanjutnya tinggal memasukkan script ke Form1, Klik kanan pada Form1 dan pilih View Code untuk membuka jendela code. kemudian masukkan script kode berikut ini:
- Tekan F5 untuk melihat hasilnya.
- Coba isi User Name dan Password dengan "admin" kemudian kilk Login, maka jendela Form2 atau Form Utama akan ditampilkan.
- 3 Label ( Caption: FORM LOGIN, User Name, Password)
- 2 Command Button (Login dan Exit)


Private Sub Command1_Click() If Text1 = "admin" And Text2 = "admin" Then Form2.Show 'Perintah Menampilkan Form 2 Form1.Visible = False 'Menyembunyikan Form 1 Unload Me 'Menutup Form 1 Else MsgBox "User Name atau Password yang Anda Masukkan salah" _ & vbNewLine & "Silahkan Coba lagi !!", vbCritical, "Warning!!" Text1 = "" Text2 = "" Text1.SetFocus End If End Sub Private Sub Command2_Click() Unload Me End Sub

Tags:
Program