Menggunakan Form Login Pada VB Net

Designlah form menggunakan form login pada vb net

Public Class formLogin
    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()
            menuutama.Show()
        Else
            MsgBox("Maaf ! Anda Salah Username/Password. Coba Ulangi")
            Username.Text = ""
            Password.Text = ""
        End If
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        End
    End Sub

    Private Sub formLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Username.Text = ""
        Password.Text = ""
        Password.PasswordChar = "*"
    End Sub
End Class

perintah menuutama.Show() berguna untuk menampilkan menu utama apabila login kita sukses.

Untuk itu silahkan tambahkan 1 form lagi di Menu project | add windows form, anda buat nama form Menuutama, kemudian click add

Design Menu seperti berikut ini :

Jika ingin tahu langkah langkah membuat menu lihat di Merancang Menu Pada Program VB Net

Kemudian Tambahkan 1 form kembali dan buat nama form dengan Gambar, lalu pilih Add.

Design program pada form gambar dengan bentuk berikut :

Pada PictureBox1 masukkan Image dengan cara, Click PictureBox1 kemudian pada propertis pilih Image, kemudian Click Import dan silahkan pilih gambar yang anda inginkan, kemudian Open gambar tersebut. Langkah terakhir Click OK pada dialog import image.

Listing program pada form Gambar.

Public Class Form1
    Dim gambar2 As Bitmap

    Private Sub btnGray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGray.Click
        Dim Pb, Pc As Integer
        Dim Rt, vM, vH, vB As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G
                vB = gambar2.GetPixel(Pc, Pb).B
                Rt = (vM + vH + vB) / 3
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
            Next
        Next
        PictureBox2.Image = gambar2
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox2.Image = PictureBox1.Image
    End Sub
End Class

Hasilnya dapat dilihat pada gambar gambar di bawah ini :

Form Login