Picture Viewer with Gambas

Program pertama...
ini adalah sebuah program yang akan mampu membuka/meload gambar
program ini akan meload gambar dengan type jpg, jpeg, png ataupun bmp
program ini sangat sederhana, sehingga kita hanya akan membutuhkan dua buah fungsi saja
yaitu fungsi untuk meload picture dan fungsi untuk exit.

Dalam aplikasi ini juga hanya membutuhkan dua komponen saja,
yaitu PictureBox dan ScrollView. PictureBox nantinya akan kita gunakan untuk media penampil gambar
dan ScrollView digunakan untuk mengatur tampilan agar gambar dapat muncul secara sempurna, ini akan
sangat berguna disaat ukuran gambar sangat besar (mis:1024x768).

Baik, pertama kita akan membuat sebuah menu yang akan membantu user membuka dan keluar dari aplikasi.
Untuk membuat menu, kita bisa langsung dengan klik kanan pada form dan klik menu editor sehingga akan
muncul jendela popup seperti dibawah



Setelah itu tambahkan menu file dengan sub menu adalah open dan exit. Setelah itu close
dan kembali ke form utama. Pada form utama, tambahkan dan aturlah tata letak dari PictureBox dan ScrollView.

Jika sudah, kita akan mulai dengan coding pada submenu open.
Klik pada menu File kemudian Open, maka window coding class akan muncul.
dan isikan kode berikut

DIM pic AS Picture

dialog.Path = "/home/asyhadi/Image"
IF NOT Exist(dialog.Path) THEN
dialog.Path = user.Home
ENDIF

dialog.Filter = ["All Type (*.jpg , *.jpeg , *.png , *.bmp)", "( *.jpg )", "( *.png )"]

IF dialog.OpenFile() THEN RETURN
pic = NEW Picture
pic.Load(dialog.Path)
PictureBox.Picture = Picture[Dialog.Path]
PictureBox.Resize(pic.Width + 7, pic.Height + 7)

sedikit review saja
pada baris pertama kita membuat variabel baru bernama pic dengan tipe picture
variabel ini akan sangat berguna nantinya saat kita ingin mengatur properties saat
gambar ditampilkan, misalnya mengatur ukuran lebar dan tinggi dari ukuran PictureBox.

Kemudian pada baris kedua hingga kelima, kita mengarahkan letak user saat dia ingin membuka gambar
secara default saya mengarahkan pada direktori /home/asyhadi/Image, sebab saya menyimpan gambar
pada direktori tersebut. Anda dapat menggantinya dengan letak yang sesuai dengan struktur direktori anda.
Selanjutnya jika ternyata direktori tersebut tidak ada, maka user akan diarahkan pada direktori home.

Baris selanjutnya adalah keenam, yang mana kita menyeleksi/filter type gambar yang akan kita tampilkan
Sedangkan pada baris ketujuh hingga terakhir kita menampilkan gambar kedalam PictureBox.
Gambar akan ditampilkan kedalam PictureBox yang diambil dari Dialog.Path yang mana ukuran PictureBox
akan menyesuaikan sesuai dengan lebar dan tinggi dari gambar yg diambil.
Dengan begini, maka sebenarnya program sudah dapat dicoba...

Fungsi berikutnya adalah Exit, anda hanya perlu menulis
me.close
yang mana nantinya akan menutup aplikasi.
Setelah semua selesai, maka program akan tampak seperti berikut



nah gimana? mo coba...? simple banget kan...!
Oia, klo anda perhatikan pada aplikasi tersebut tidak ada tombol minimize, maximize maupun exit/close
hal tersebut karena properties border pada form utama telah saya beri nilai none, sehingga tidak memunculkan
minimize, maximize maupun exit/close.