Load Picture Only JPEG
Load Picture Only JPEG
Rate Load Picture Only JPEG
(1(1 Vote))
'by Peter Elisa Souhoka
Private Sub Command1_Click()
With Me.CommonDialog1
.DialogTitle = "Ambil Gambar"
.Filter = "JPEG|*.jpg"
.ShowOpen
If .FileName <> "" Then
Set Me.Picture1.Picture = Nothing
Me.Picture1.Picture = LoadPicture(.FileName)
End If
End With
End Sub
'Private Sub Form_Load()
'Me.Picture1.Picture = LoadPicture("D:\gbr_motor\bikes_honda_01.jpg")
'End Sub
Load Picture Only JPEG Comments
No comments yet — be the first to post one!
Post a Comment