Menampilkan File Gambar dengan VB

Assalamu’alaikum Wr.Wb.

Artikel ini merupakan cara untuk menampilkan gambar yang di input secara manual. Pada bahasa pemrograman visual basic 6.0 hal itu dapat di lakukan dengan sangat mudah. yaitu dengan perintah loadpicture.

Berikut adalah langkah untuk membuat program berikut seperti di atas:

1.  Buat Project baru, dan tambahkan komponen berikut ini

  • Label1

                      ubah caption pada menu properties dengan Show Image.

  • DriveListBox1
  • DirListBox1
  • FileListBox1

ubah beberapa nilai properties pada FileListBox1 yaitu ubah nilai Archive menjadi True, ubah nilai Hidden menjadi False, ubah ReadOnly menjadi True, ubah System menjadi False. Kemudian masukkan lah nilai ini (*.bmp;*.jpg;*.gif;*.wmf;*.ico) ke Pattern. ini bertujuan untuk membatasi file agar yang ditampilkan pada FileListBox1 hanya file gambar.

  • Image1

ubah Stretch pada menu properties dengan nilai True agar gambar yang di input berukuran sesuai dengan ukuran Image1.

2.  Klik ganda kontrol DriveListBox1 dan untuk mengaitkan ketiganya sehingga bisa bekerja secara normal, tuliskan kode          berikut ini.

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

EndSub

Kode diatas berarti perubahan yang terjadi di kontrol drive harus diikuti oleh kontrol direktori.

3.  Klik ganda kontrol DirListBox1, dan tuliskan kode berikut ini.

Private Sub Dir1_Change()

File1.Path = Dir1.Path

EndSub

4.  Klik ganda kontrol FileListBox1, dan tuliskan kode berikut ini.

Private Sub Dir1_Change()

Image1.Picture = LoadPicture(File1.Path & “\” & File1.FileName)

EndSub

Kode diatas berarti pada saat gambar dipilih pada FileListBox1 gambar pada Image1 berubah sesuai dengan gambar yang di pilih.

5.  Jalankan program. Hasilnya adalah  Jika mengubah drive, maka seluruh informasi pada direktori dan drive juga akan berubah. Dan perubahan pada direktori (DirListBox) akan diikuti oleh FileListBox1. kemudian pada saat FileListBox dipilih maka pada Image1 gambar akan berubah sesuai dengan gambar yang dipilih pada FileListBox1.

Link Download Source Code : Download (89KB)

Moga Bermanfaat, Wassalam.

Advertisements

One response to “Menampilkan File Gambar dengan VB

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s