Program Load Gambar
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
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