Membuat penampil gambar di visual basic 6.0

Di tengah kesibukan saya sebagai pelajar saya akan “memberikan kembali” sebuah tutorial tentang “MEMBUAT PENAMPIL GAMBAR DI VISUAL BASIC 6.0 “,
Ok langsung saja


Image viewer atau penampil gambar adalah sebuah software yang digunakan untuk menampilkan sebuah gambar ( seperti windows photo viewer )
berikut langkah-langkah nya

1.Buka sahabat karib anda yaitu VB 6.0

2.Pilih standard EXE lalu OK

3.masuk ke halaman awal,anda klik tab “Project > Components “ atau anda bisa menekan CTRL + T

4.maka akan muncul sebuah form komponen,setelah itu anda cari dan centang
“Microsoft Common Dialog Control 6.0 “ seperti gambar dibawah lalu tekan Apply dan berikutnya Close

5.Masukan komponen kedalam form seperti pada gambar berikut ini :

6.sebelum masuk ke koding,kita rubah dahulu property “ stretch “ pada picture box menjadi TRUE

7.sekarang sa’at nya untuk perang…

klik dua kali tombol “browse file” dan masukan script berikut :

Private Sub Command1_Click()

On Error Resume Next

CommonDialog1.DialogTitle = "Pilih File Yang Akan Dibuka"

CommonDialog1.ShowOpen

Image1.Picture = LoadPicture(CommonDialog1.FileName)

Text1.Text = CommonDialog1.FileTitle

End Sub

Keterangan 

• Script On error Resume Next  adalah untuk membuat sebuah kemungkinan jika terjadi error maka lanjutkan ke langkah berikutnya.
• Script CommonDialog1.DialogTitle = "Pilih File Yang Akan Dibuka"  berfungsi untuk menyeting title atau judul form dari Commondialog menjadi "pilih File Yang Akan Dibuka"
• Script CommonDialog1.ShowOpen adalah untuk meng-explore ke dalam file dalam komputer
• Script Image1.Picture = LoadPicture(CommonDialog1.FileName) ,ini dipakai untuk menampilkan gambar di Image1 yang diambil dari CommonDialogControl tadi
• Sedangkan script Text1.Text = CommonDialog1.FileTitle adalah untuk mengisi text dari CommonDialogControl ke textbox

Jika semua berjalan baik maka hasilnya akan seperti gambar paling atas….

Berikut penampil gambar yg ane desain sendiri gan,mungkin bisa jadi referensi

• Normal mode

• FullScreen mode

Nantikan kembali postingan VB berikutnya....

jangan lupa komentarnya

* Morten Jonathan