Tips Membuat Form Login VB Dengan Mudah

Sobat pasti pernah melakukan registrasi email atau aplikasi yagn lainnya. Setelah melakukan registrasi email ataupun blog atau aplikasi yang lain pasti setelah itu kita melakukan login ke aplikasi atau pun email tersebut, agar bisa masuk kedalam menu utama aplikasi kita. disini saya akan sedikit membagikan tips tentang cara pembuatan form login di vb dengan mudah..
Sebenerannya ada dua cara membuat form login denan vb yang pertama dengan menggunakan database, dan yang kali ini saya akan saya buat tidak menggunakan dabase melainkan langsung menaruh nama user atau passwordnya di dalam listing code...
Untuk lebih jelasnya mungkin kita langsung praktekan aja cara nya.
Pertama sobat tentukan dulu bentuk formnya mau seperti ini :

Login Form

User ID
Password

Atau Seperti ini :

Login Form

User ID	User1User2
Password

Sekarang Tinggal sobat yang tentukan lebih suka dengan meggunakan yang mana??
Untuk form yang pertama cara nya masukan bentuk perintah nya adalah seperti ini :

Kode di Form Load
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox1.Focus()
End Sub

Kode di Button Login
If Me.TextBox1.Text = "User" And Me.TextBox2.Text = "123" Then
MsgBox("User and Pasword OK")
Me.Hide()
form2.show()
Else
MsgBox("Login Salah")
Exit Sub
End If
End Sub

Kode di Button Keluar :
 Dim pesan As String
        pesan = MsgBox("Keluar Dari Aplikasi??", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If pesan = vbYes Then
            Me.Close()
        End If
    End Sub

Untuk form yang kedua maka kode yang  harus sobat masukan adalah seperti ini :
Kode di Form Load
Me.ComboBox1.Items.Add("Fajar345")
Me.ComboBox1.Items.Add("User2")

Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox1.Focus()
End Sub

 Kode di Button Login
 If Me.ComboBox1.Text = "User1" And Me.TextBox2.Text = "123" Or Me.ComboBox1.Text = "User2" And Me.TextBox2.Text = "234" Then
            MsgBox("OK Masuk")
            Me.Hide()
            'form2.show()
        Else
            MsgBox("Pasword Salah")
            Exit Sub

        End If
    End Sub
Kode di Button Keluar :
 Dim pesan As String
        pesan = MsgBox("Keluar Dari Aplikasi??", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If pesan = vbYes Then
            Me.Close()
        End If
    End Sub

*)Agar text di password bentuknya (*) atau (#) atau ($) Sobat ubah PasswordChar nya yang ada di menu properties 

Ok Sampai situ aja tentang cara pembuatan login form dengan mudah di vb, selamat mencoba semoga berhasil. :-)

Sobat suka tulisan ini..?

	Dapatkan Tulisan Gratis Via Email!
Follow Fajar345!