Membuat Image Viewer Sederhana Menggunakan visual Basic 6.0 ~ Refresh Dengan Komputer

Buatlah Project dengan Standart exe. Tambahkan komponen-komponen 4 Label,

1 Frame, 1 Images, 1 ComboBox dan 4 Command,1 DriveListBox,1DirListBox,1FilelistBox. Atur tampilannya seperti gambar berikut:

Tabel Property

Object	Property	Nilai
Form1	Caption StartUpPosition	.::Image’s Viewer::. 2-Center Screen
Label1	Caption	Drives :
Label2	Caption	Directories :
Label3	Caption	Format :
Label4	Caption	File :
Frame1	Caption	Menu
Command1	Caption	Clear
Command2	Caption	Sembunyi
Command3	Caption	Tampil
Command4	Caption	Exit
Image1	Strech	True
DriveListBox
DirListBox
FileListBox
Combo1	Text List	.Jpg .Ico .Bmp .Png *.Gif

Dari pengaturan ini akan dihasilkan tampilan program aplikasi seperti pada gambar Di Atas

Click pada command1, tambahkan kode program sehingga menjadi:

Private Sub Command1_Click()

Image1.Picture = Nothing

End Sub

Click pada command1,tambahkan kode program sehinga menjadi:

Private Sub Command2_Click()

Image1.Visible = False

End Sub

Click pada command3,tambahkan kode program sehinga menjadi:

Private Sub Command3_Click()

Image1.Visible = True

End Sub

Click pada command4,tambahkan kode program sehinga menjadi:

Private Sub Command4_Click()

End

End Sub

Click pada DriveListBox,tambahkan kode program sehinga menjadi:

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Click pada DirListBox,tambahkan kode program sehinga menjadi:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Click pada FileListBox,tambahkan kode program sehinga menjadi:

Private Sub File1_Click()

foto = File1.Path + “\” + File1.FileName

Image1.Picture = LoadPicture(foto)

End Sub

Click pada ComboBox,tambahkan kode program sehinga menjadi:

Private Sub Combo1_Click()

File1.FileName = Combo1.Text

End Sub

Dan jalankan Program Dengan memilih Run>Start atau Tekan F5 kemudian pilih Format Gambar kemudian cari lokasi gambar yang Ingin dibukan lalu Click Tampil seperti gambar dibawah ini: