Untuk membuat form login pada program vb.net,sangat lah mudah.pertama tama buka visual studio anda, lalu pilih file, new project, lalu buat tampilannya sperti ini :
lalu masukkan listingprogramnya sbb :
Public Class Form1
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
username.Text = ""
password.Text = ""
End Sub
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If username.Text = "aan" And password.Text = "123" Then
MsgBox("Selamat Datang")
Me.Hide()
menu_utama.Show()
Else
MsgBox("username & password salah. coba ulangi!")
username.Text = ""
password.Text = ""
End If
End Sub
End Class
maka tampilannya akan seperti ini :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
username.Text = ""
password.Text = ""
password.PasswordChar = "*"
End Sub
lalu masukkan listingprogramnya sbb :
Public Class Form1
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
username.Text = ""
password.Text = ""
End Sub
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If username.Text = "aan" And password.Text = "123" Then
MsgBox("Selamat Datang")
Me.Hide()
menu_utama.Show()
Else
MsgBox("username & password salah. coba ulangi!")
username.Text = ""
password.Text = ""
End If
End Sub
End Class
maka tampilannya akan seperti ini :
untuk mengganti tampilan Password login menjadi tanda bintang, masukkan codingnya : Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
username.Text = ""
password.Text = ""
password.PasswordChar = "*"
End Sub
maka tampilannya akan terganti menjadi seperti ini :
selamat mencoba teman,
Thanks
1 komentar:
Write komentarassalamualaikum maaf mbak mau nanya apa listingnya ini bisa digunakan ke vb 6.0??
ReplyTerimakasih Atas Komentar Anda....!!! :) EmoticonEmoticon