Buat design aplikasi yang akan kita buat seperti gambar dibawah ini
menampilkan gambar dengan gambas

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
design gambar gambas

klik tombol pilih, lalu pilih salah satu gambar, dah hasilnya akan seperti gambar dibawah ini
hasil gambar dengan gambas

Download

Download “Gambas Picture”

GambasPicture-0.0.1.tar.gz – Downloaded 1407 times – 178.00 B

Leave a comment

Your email address will not be published. Required fields are marked *