Aplikasi buka gambar / Foto

Malam ini malam minggu, ya......seperti biasa selalu sendirian menghabiskan malam ini,
he......he.......ketimbang kesepian coba-coba ja buat sesuatu yang baik sapa tau berguna tuk sendiri maupun orang lain.
Ni merupakan salah satu yang ku buat malam ini, yaitu sebuah aplikasi sederhana untuk membuka sebuah file gambar. anda dapat mengembangkannya lagi ke yang lebih sempurna. selamat berkarya ya........
satu lagi.....ingat ! "kesendirian bukan berarti kesepian,karena masih bayak hal yang dapat kita lakukan tuk menghilangkan rasa kesepian".

Source Code Program

Private Sub driver_Change()

folder.Path = driver.Drive

End Sub


Private Sub folder_Change()

isi.Path = folder.Path

End Sub




Private Sub isi_Click()

Dim a As String

On Error Resume Next

a = folder.Path & "\" & isi.FileName

Gambar.Picture = LoadPicture(a)

End Sub