Kali ini saya ingin membagikan sedikit tutorial visual basic 6.0 mungkin ini masih tutorial dasar karena saya juga baru belajar apa salah nya berbagi ilmu.Sebenarnya ini adalah tugas yang di berikan dosen kepada saya dari pada cuma di flashdisk mendingan saya bagikan kepada kalian semua siapa tahu dapat berguna atau mendapatkan tugas yang sama dari dosen, Kali ini saya akan membuat “Image Viewer” mengunakan visual basic 6.0 program ini masi sangat sederhara jadi bagi yang ingin mengembangkan program ini silahkan saya akan menyertakan contoh program.
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:
Sekian Tutorial Dari saya Silahkan Download Contoh Program Dibawah ini,Jika Berkenan Silahkan Tingalkan Komentar.
Keren Bro
bagaimana cara membuatnya permanent ? karena ketika keluar dari aplikasi visual basic, file tersebut tidak bisa dijalankan kembali…
apa penyebabnya?
terima kasih sebelumnya atas jawabannya…….