Monday, April 23, 2012

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




Reaksi:

3 komentar:

  1. berarti ini dicoba di vb 6 gg bisa ya ?

    ReplyDelete
    Replies
    1. ke vb 6, pernah lihat sih kira2 seperti ini..mungkin sedikit berbeda

      Delete