Cara membuat aplikasi image viewer by rizky
1) 1 . Buka vb dan pilih standard EXE, lalu kilk open
2) Lalu buat form dengan ketentuan :
1 frame,1 image,4 label,4 button,1 Drivelistbox, 1 Dirlistbox, 1 Filelistbox,1 combobox
2. Lihat gambar berikut agar lebih jelas :
3) Jika sudah atur capitation seperti gambar di atas
4) Atur fungsi-fungsi tiap tombol pada form
Klik 2x pada Drivelistbox
Lalu isikan script berikut :
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Klik 2x pada Dirlistbox
Lalu isikan script berikut :
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Klik 2x pada Filelistbox
Lalu isikan script berikut :
Private Sub File1_Click()
foto = File1.Path + "\" + File1.FileName
Image1.Picture = LoadPicture(foto)
End Sub
Klik 2x pada Combobox
Lalu isikan script berikut :
Private Sub Combo1_Click()
File1.FileName = Combo1.Text
End Sub
Klik 2x pada Button1,button2,button3,button4
Lalu isikan script berikut :
Private Sub Command1_Click()
Image1.Picture = Nothing
End Sub
Private Sub Command2_Click()
Image1.Visible = False
End Sub
Private Sub Command3_Click()
Image1.Visible = True
End Sub
Private Sub Command4_Click()
End
End Sub
5) 3.Hasilnya akan seperti gambar berikut :
Tapi jika anda mau menambahi/merevisi/menghiasnya/mempercantik tampilannya bisa anda lakukan sendiri , seperti yang saya lakukan yaitu : lihat gambar berikut
Oke sekian info dari saya , trima kasih
Anda bisa mendownload aplikasi yang saya buat di link di bawah ini!!!
download juga file wordnya Disini
pw : rizkyibnurrosyadi
Jangan lupa komentarya ya
bagus
BalasHapus