by Peter Elisa Souhoka (21 Submissions)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 14th April 2008
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Load Picture Only JPEG
'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