Membuat Program Dengan Picture Box

PictureBox sebenarnya hampir sama dengan kontrolimage yaitu berfungsi untuk menampilkan file gambar pada from aplikasi.

Ada beberapa perbedaan antara kontrol image dengan kontrol Picture Box, antara lain :

1. Bingkai dari objek Picture Box yang terpasang di form tidak transparan (garis putus-putus) seperti image
2. Properti Stretch seperti pada kontrol Image tidak ada tetapi pada kontrol Picture Box diganti dengan AutoSize
3. PictureBox, dapat menangkap jejak mouse sehingga dapat menulis dan menggambar dengan mouse pada objek ini. Seluruh kontrol yang berada didalam Control Picture Box dapat dengan mudah dipindahkan kebagian lain dari form
4. Picture Box dapat menampung objek lain dan menjadikannya satu kelompok.

Pada contoh berikut, dibuat program untuk menampilkan atau mengganti gambar pada PictureBox. Pengisian gambar dan teks pada label dilakukan dari program yaitu dengan mengklik pada tombol Option Button "Tampil". Langkah yang harus dilakukan adalah sebagai berikut :

1. Buatlah sebuah desain form pada Visual Basic 6.0 seperti pada gambar berikut ini
   
2. Klik icon PictureBox pada ToolBox, buat area gambar
3. Klik icon Label, buat object Label dan sesuaikan ukuran dengan contoh
4. Klik icon CommandButton, buat tombol Tampil
5. Klik Icon CommandButton, buat tombol Next
6. Klik icon CommandButton, buat tombol Kembali, dan sesuaikan ukuran dengan contoh
   
7. Setting masing-masing object seperti pada tabel di bawah ini :
8. Klik dua kali pada tombol Tampil, dan ketikkan kode ,program sebagai berikut :
   
   Private Sub Command1_Click() Picture1.Picture = LoadPicture(":\windows\greenstone.bmp")
   Label1.Caption = "Pasir"
   End Sub
   
   
9. Klik dua kali pada tombol Next, dan ketikkan kode program sebagai berikut :
   
   Private Sub Command2_Click() Picture1.Picture = LoadPicture(":\windows\gone fishing.bmp")
   Label1.Caption = "Pasir"
   End Sub
   
   
10. Klik dua kali pada tombol Kembali, dan ketikkan kode program sebagai berikut :
    
    Private Sub Command3_Click() Picture1.Picture = LoadPicture(":\windows\greenstone.bmp")
    Label1.Caption = "Pasir"
    End Sub
    
11. Tutup jendela code editor, jalankan program dengan mengklik icon Start pada toolbar atau tekan tombol F5 pada keyboard
12. Uji program denga mengklik tombol secara bergantian
13. Simpan form dan roject dengan nama fle Gambar2