PROGRAM MENAMPILKAN GAMBAR DENGAN MICROSOFT VISUAL BASIC 6.0

::. LANGKAH - LANGKAH

MEMBUAT APLIKASI SEDERHANA
UNTUK MELIHAT GAMBAR YANG MEMILIKI FORMAT
*.JPG DAN *.BMP .::

1. Tampilan
>> Letakkan sebuah kontrol :
a. Image
b. DriveListBox
c. DirListBox
d. FileListBox




2. Pengaturan Property Setiap Objek nya Adalah Sebagai Berikut :


>> Pada kontrol Image properti Stretch yang default-nya adalah False diset menjadi True agar ukuran gambar ditampilkan seluruhnya dan di sesuaikan dengan ukuran Image. Jika properti Stretch tetap bernilai False, gambar akan ditampilkan dalam ukuran aslinya sehingga gambar yang ukurannya melebihi Image, tidak dapat tampil seluruhnya.


3. Buka Jendela Code Dan Pada Bagian Code Editor Ketikkan Kode Program nya Sebagai Berikut :

Private Sub Form_Load()
Drive1.Drive = "c:\"
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
On Error GoTo Pesan
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
Pesan:
If Err.Number = 481 Then
MsgBox "TIDAK BISA DI TAMPILKAN", vbOKOnly, "PESAN"
End If
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

" Dengan adanya kode On Error GoTo Pesan... pada Private Sub File1_Click( ), jika file yang diklik pengguna tidak berekstensi JPG atau BMP, akan muncul pesan berikut. "

4. Hasil Akhir