Cara Mengambil Foto Menggunakan Visual Basic

Baca Juga

Kali Ini Saya memberikan tutor cara mengambil Foto menggunakan Visual Basic Oke liat dan Praktekkan !

1. Buat proyek baru seperti Gambar Ini :
Bahan : DriveListBox,DirListBox,FileListBox :

2. Ubah lah Pattern pada kontrol FileListBox dengan mengetikkan *.bmp;*.jpg;*.gif. Itu fungsinya untuk tipe file yang ditampilkan file gambar yang memiliki ekstention bmp,jpg, dan gif.

3. Pada kontrol DriveListBox, DirListBox, dan FileListBox Berikut :
Klik Ganda kontrol DriveListBox, dan ketikkan kodenya :

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Klik Ganda kontrol DirListBox, dan ketikkan kodenya :

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Klik Ganda kontrol FileListBox, dan ketikkan kodenya :

Private Sub File1_Click()

Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)

End Sub

4. Jalankan programnya seperti  ini :