- Pertama tama buat form dengan nama frmLogin seperti dibawah ini.
- Kemudian klik `Project - Login propertis - setting` sampai tampil seperti dibawah ini.
- Buat form lagi dengan nama `frmMain` ysng bertujuan ketika kita telah login form ini yang akan tampil kemudian.
- Untuk Codingan yang terdapat di dalam `frmLogin`
Public Class frmLogin
Private Sub bLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLogin.Click
If txtUsername.Text = My.Settings.Username And
txtPassword.Text = My.Settings.Password Then
frmMain.Show()
Me.Hide()
Else
MsgBox("Username tidak ditemukan!", MsgBoxStyle.Information, "Error")
End If
End Sub
Private Sub txtUsername_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUsername.KeyDown, txtPassword.KeyDown, bLogin.KeyDown, bCreate.KeyDown
If e.KeyCode = Keys.Enter Then
SelectNextControl(sender, True, True, True, True)
End If
End Sub
Private Sub bCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCreate.Click
My.Settings.Username = txtUsername.Text
My.Settings.Password = txtPassword.Text
My.Settings.Save()
MsgBox("Create account!", MsgBoxStyle.Information, "Create")
txtUsername.Text = ""
txtPassword.Text = ""
Me.Hide()
Me.Show()
End Sub
End Class