Buat form seperti gambar dibawah
Label1 | Username |
Label2 | Password |
Text1 | Text1 |
Text2 | Text2 |
Button1 | Login |
Button2 | Batal |
Sekarang masukan script dibawah ini dengan cara klik kanan pada Form1 pilih view code..
Public Class Form1
Dim F_Utama As New Form2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = "" Then
MsgBox("Username Kosong")
ElseIf TextBox2.Text = "" Then
MsgBox("Password Kosong")
Else
If TextBox1.Text = "joko" And TextBox2.Text = "123" Then
MsgBox("Berhasil Login")
F_Utama.Show()
Else
MsgBox("Data Tidak Ditemukan")
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
Jika sudah Running program ( Tekan F5 )
Silahkan anda kembangkan dengan kreativitas anda..
Selamat mencoba......
Jika menggunakan database bagaimana..
BalasHapus