Tampilan form utama
coding program tersebut..... dari File - Open
Private Sub mn_open_Click()
With CommonDialog1
.Filter = "Picture Files (*.BMP; *.GIF; *.JPG)|*.BMP;*.GIF;*.JPG|Bitmap Files (*.BMP)|*.BMP|GIF Files (*.GIF)|*.GIF|JPEG Files (*.JPG)|*.JPG|All FIles (*.*)|*.*"
.DialogTitle = "Open File Gambar"
.ShowOpen
End With
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
Eksekusi Program diatas seperti berikut.....
Untuk menampilkan Picture pilih file - open
Catatan : yang bisa dibuka BMP, GIF, JPG
CATATAN : Program ini Masih dalam Tahap Pengembangan Coy....
