Tampilkan Gambar atau Foto di Visual Basic

Ada 2 komponen bawaan visual basic yang dapat digunakan untuk menampilkan gambar atau foto. Objek tersebut adalah Picture Box dan Image Box. Dalam artikel ini akan dibahas sedikit cara penggunaan tentang kedua objek tersebut.

Picture Box

Sesuai dengan namanya, fungsi dari Picture Box adalah untuk menampilkan gambar. Dalam Picture Box kita dapat menampilkan gambar secara statis dengan menggunakan properties. Beberapa format gambar yang bisa ditampilkan antara lain berekstensi Bmp, Jpg, GIF, ataupun Ico.
Di bagian properties Picture Box dapat ditampilkan gambar secara statis melalui Picture kemudian cari file gambar yang akan ditampilkan.

Coba perhatikan gambar yang ditampilkan di Form. Gambar yang dipasang hanya terlihat sebagian karena Picture Box menampilkan gambar sesuai ukuran pixel dari gambar asilinya. Jika Anda ingin gambar terlihat sempurna sesuaikan ukuran Picture Box dengan ukuran pixel gambar atau bisa membaca artikel lain tentang Zoom gambar dengan Picture Box.

Kemudian bagaimana jika Anda ingin menampilkan gambar dengan ukuran sesuai dengan aslinya? Solusi yang paling mudah Anda dapat menggunakan objek lain dari visual basic, yaitu Image Box.


Image Box

Fungsi dari Image Box hamper sama dengan Picture Box, yaitu sama-sama digunakan untuk menampilkan gambar. Cara penggunaannya juga sama, yaitu menggunakan Picture pada properties dan mencari file gambar yang akan dipasang.
Namun, perbedaan antara keduanya adalah pada Image Box terdapat properties Stretch yang berfungsi untuk menyesuaikan ukuran gambar yang terpasang sesuai dengan ukuran dari Image Box.

Menampilkan Gambar dari Folder Windows di Visual Basic

Dalam tutorial kali ini kita akan membahas bagaimana cara menampilkan beberapa gambar langsung dari folder windows. Prinsip kerjanya adalah pada saat kita menekan salah satu tombol gambar yang ditunjuk akan ditampilkan sesuai dengan url/ path gambarnya.
Langkah awal siapkan Project baru di Visual Basic. Buatlah 1 buah Image Box, 3 buah CommandButton kemudian set properties dari masing-masing objek seperti di bawah ini.

Name Asli Objek	Properties	Perubahan Properties
ImageBox	Name	ImgGambar
	Stretch	TRUE
	Border Style	1-Fixed Single
	Picture	Kosongkan / Tekan Del
Command1	Name	CmdGambar1
	Caption	Gambar 1
Command2	Name	CmdGambar2
	Caption	Gambar 2
Command3	Name	CmdGambar3
	Caption	Gambar 3

   

Susun seperti gambar di bawah ini.

Klik dua kali pada CmdGambar1 dan ketikkan coding di bawah ini

ImgGambar.Picture=LoadPicture (“C:\Gambar\filegambar1.jpg”)

Ganti Path yang berwarna merah dengan folder tempat Anda menaruh gambar.
Jika file gambar Anda tersimpan dalam 1 folder dengan folder project, hanya perlu ketikan App.Path & FileGambarAnda.

Contoh : App.Path & filegambar1.jpg

Lanjutkan memberi coding untuk CmdGambar2 dan CmdGambar3.

Private Sub CmdGambar1_Click()
    ImgGambar.Picture = LoadPicture(App.Path & "/FileGambar1.jpg")
End Sub

Private Sub CmdGambar2_Click()
    ImgGambar.Picture = LoadPicture(App.Path & "/FileGambar2.jpg")
End Sub

Private Sub CmdGambar3_Click()
    ImgGambar.Picture = LoadPicture(App.Path & "/FileGambar3.jpg")
End Sub

Setelah selesai, silahkan jalankan aplikasi dengan tekan tombol F5 pada keyboard.
Jika berhasil pada saat klik tombol, maka gambar akan berubah-ubah.

Silahkan download contoh filenya di …..

Untuk penerapan pada Picture Box sama dengan cara di atas. Hanya perlu mengganti Name nya saja.
Sekian artikel kali ini. Terima kasih dan silahkan lanjutkan ke artikel berikutnya Buat Jam Sederhana dengan Timer Visual Basic.