• Home
 · 
• Files/File Controls/Input/Output
 · 
• Load Picture Only JPEG

Load Picture Only JPEG

Load Picture Only JPEG

Rate Load Picture Only JPEG

• 1
• 2
• 3
• 4
• 5

(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