Input Gambar Ke PictureBox di VB.NET

Pada kali ini saya akan mencoba untuk membuat artikel tentag vb.net khususnya mengenai 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.

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:

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 Form2

    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