Buat design aplikasi yang akan kita buat seperti gambar dibawah ini
Komponen yang digunakan Button dan PictureBox. Ubah text pada button menjadi Pilih, lalu klik dua kali pada tombol pilih tersebut, tambahkan script dibawah ini
Dim pic As Picture dialog.Path = "/home/tommy/Pictures" If dialog.OpenFile() Then Return pic = New Picture pic.Load(dialog.Path) PictureBox1.Picture = Picture[Dialog.Path]
/home/tommy/Pictures adalah letak file-file gambar anda.
Lalu jalankan program dengan mengekan tombol F5 di keyboard
klik tombol pilih, lalu pilih salah satu gambar, dah hasilnya akan seperti gambar dibawah ini
Download
Download “Gambas Picture” GambasPicture-0.0.1.tar.gz – Downloaded 1407 times – 178.00 B