Membuat Form Tambah Foto dengan Visual Basic

Nano Informatika - Form Foto banyak digunakan aplikasi - aplikasi yang berhubungan dengan identitas diri seseorang misalnya aplikasi KTP, SIM, Penerimaan siswa baru dan masih banyak lainnya. Form foto juga digunakan untuk memberikan fitur tambahan dalam aplikasi agar semakin menarik.

Form foto ini dapat disisipkan diberbagai macam form karena spece yang disediakan tidak terlalu memakan banyak tempat. Komponen yang harus disiapkan yaitu Label, Button , PictureBox, dan Open File Dialog. Kenapa ada label ?? Label berguna untuk menampilkan alamat foto dari laptop atau PC kita, agar tampilannya lebih baik label dapat kita sembunyikan. Desain form sedemikian rupa.

Copy Paste dan tempatkan coding ini pada bagian atas sendiri

Imports System.Drawing.Bitmap

Buat Sub Gambar

    Sub gambar()
        mycmd = myconnection.open.CreateCommand
        mycmd.CommandText = "SELECT * FROM tbl_register WHERE no_transaksi= '" & Label2.Text & "'"
        objdatareader = mycmd.ExecuteReader
        While objdatareader.Read
            PictureBox1.ImageLocation = objdatareader.Item("foto1")
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        End While
        myconnection.close()
    End Sub

Pada Form Load

OpenFileDialog1.Filter = "JPEG File|*.jpg;*.jpeg" 

coding ini untuk memfilter type foto apa saja yang boleh masuk pada picturebox

 Pada Button

        myconnection.close()
        If OpenFileDialog1.ShowDialog Then
            Try
                PictureBox1.Image = FromFile(OpenFileDialog1.FileName)
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                Label4.Text = OpenFileDialog1.FileName
            Catch ex As Exception
            End Try
        End If
        myconnection.close()

Selamat mencoba dan semoga berhasil jika ada kesalahan pada coding saya tunggu dikolom komentar. Dan untuk menambah wawasan kita jangan lupa baca juga Perancangan Sistem Basis Data Restaurant