by Alejandro M. Licea (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 5th September 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Opens jpg and bitmap files onto a picture box
'First add a dialog box to the form( you can find a dialog box in the
'components for the tool box, the name is Microsoft Common Dialog Controls
'6.0, a picture box and an open button.
Commondialog1.filter = "Picture Files|*.jpg, *.bmp|All Files|*.*"
Commondialog1.ShowOpen
PathName = Commondialog1.FileName
If Len(PathName) = 0 Then Exit Sub
picture1.picture = LoadPicture(PathName)