Input Gambar Ke PictureBox di VB.NET

Assalamu’alaikum Wr.Wb.

Artikel ini untuk menjawab pertanyaan dari penanya, yang ingin tau bagaimana cara input gambar di VB.NET. Memang ada perbedaan yang cukup besar antara VB6 dan VB.NET dalam cara untuk menginput gambar. Dimana pada VB6, anda hanya perlu perintah LoadPicture untuk menginput gambar, sedangkan pada VB.NET, ada satu perbedaan yang sangat besar. Anda harus menggunakan Library System.Drawing untuk bisa menampilkan gambar.

Contoh Tutorial PictureBox VBNET

Berikut adalah langkah untuk membuat program berikut seperti di atas:

1. Buat Project baru, dan tambahkan komponen berikut ini

- OpenFileDialog1
- PictureBox1
- CheckBox1
- Button1
- Label1

untuk PictureBox1, ubahlah atribut BorderStyle menjadi Fixed3D, begitu juga dengan Label1, ubah atribut BorderStyle menjadi Fixed3D dan ubah juga atribut AutoSize menjadi false.

Sesuaikan dengan tampilan desain berikut ini:

Tampilan Desain

2. Selanjutnya, anda masuk ke dalam jendela kode program. Anda harus mengimpor System.Drawing.Bitmap supaya bisa menggunakan function FromFile. Tambahkan pada bagian paling atas program anda:

Imports System.Drawing.Bitmap

3. Selanjutnya, tambahkan kode pada event Form1_Load, berikut kodenya:

 ' pengaturan OpenFileDialog1
 OpenFileDialog1.Title = "Masukkan foto anda"
 OpenFileDialog1.Filter = "JPEG File|*.jpg;*.jpeg"
 ' pengaturan PictureBox supaya tampilannya strecthimage
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

4. Lalu tambahkan event Button1_Click pada Button1, kodenya:

If OpenFileDialog1.ShowDialog Then
 PictureBox1.Image = FromFile(OpenFileDialog1.FileName)
 Call CheckBox1_CheckedChanged(sender, e)
 Label1.Text = "Nama file: " & OpenFileDialog1.FileName
End If

5. Tambahkan pula pada CheckBox1_CheckedChanged:

 If CheckBox1.CheckState = CheckState.Checked Then
   PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 Else
   PictureBox1.SizeMode = PictureBoxSizeMode.Normal
 End If

6. OK, simpan proyek anda dan tekan tombol F5 untuk mencoba program anda. Untuk jelasnya perhatikan kode program selengkapnya berikut ini:

Imports System.Drawing.Bitmap

Public Class Form1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 If OpenFileDialog1.ShowDialog Then
 PictureBox1.Image = FromFile(OpenFileDialog1.FileName)
 Call CheckBox1_CheckedChanged(sender, e)
 Label1.Text = "Nama file: " & OpenFileDialog1.FileName
 End If
 End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 ' pengaturan OpenFileDialog1
 OpenFileDialog1.Title = "Masukkan foto anda"
 OpenFileDialog1.Filter = "JPEG File|*.jpg;*.jpeg"
 ' pengaturan PictureBox supaya tampilannya strecthimage
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 End Sub

 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
 If CheckBox1.CheckState = CheckState.Checked Then
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 Else
 PictureBox1.SizeMode = PictureBoxSizeMode.Normal
 End If
 End Sub
End Class

Moga Bermanfaat, Wassalam.