Menampilkan Gambar dengan Gambas

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 183 times – 178 B