CommonDialog - Resolved

[HELPmyVB]

I am using a CommonDialog so the user can find a jpg file. I have a picture control on the form and what i would like to do is enable the user to select the jpg and for it to appear in the picture conmtrol along with the path of the image in a text box.

Does anyone have a snippit of code that can help me with this?

[Hack]

On Error Resume Next
  dlgCommonDialog.CancelError = True
  ' Set filters
  dlgCommonDialog.Filter = "All Files (*.*)|*.*|Picture Files (*.jpg)|*.jpg|"  
'Display the Open dialog box
  dlgCommonDialog.ShowOpen
  Picture1.Picture = LoadPicture(dlgCommonDialog.FileName)

[Pino]

I am using a CommonDialog so the user can find a jpg file. I have a picture control on the form and what i would like to do is enable the user to select the jpg and for it to appear in the picture conmtrol along with the path of the image in a text box.

Does anyone have a snippit of code that can help me with this?

Ok I have never used this control before (wierd or what) anyways I decided to have a play with it and i came up with this, and it works great

With CommonDialog1
    .InitDir = "C:"
    .Filter = "Jpg File (*.jpg)|*.jpg"
    .DialogTitle = "Locate Your File"
    .ShowOpen
    
    Picture1.Picture = LoadPicture(.FileName)
 End With

ok explination....

.InitDir = "C:"

sets the directory we will start looking in (the root if you like)

.Filter = "Jpg File (*.jpg)|*.jpg"

.filter sets what type of file we can use in our case .jpg

.DialogTitle = "Locate Your File"

This is the title of the Dialog (self explanitory)

.ShowOpen

This shows the Dialog as open, there are other options such as save etc

Picture1.Picture = LoadPicture(.FileName)

this loads the filepath (we just got from the dialog) into the picture box

Ok i hope that helps if you have any further questions please ask

Pino

[HELPmyVB]

That works great, now all i have to do is figure out how to resize the image to the picturebox size.

[Pino]

That works great, now all i have to do is figure out how to resize the image to the picturebox size.

You could change the control to be an image control rather than a picture box and this would work

Image1.Stretch = True
    Image1.Picture = LoadPicture(.FileName)

Hope that helps

[Pino]

You could change the control to be an image control rather than a picture box and this would work

Image1.Stretch = True
    Image1.Picture = LoadPicture(.FileName)

Hope that helps

Did that help you?

[HELPmyVB]

Yep, worked a treat, vb is cool when you know the code. Thx a lot.

[Pino]

Yep, worked a treat, vb is cool when you know the code. Thx a lot.

Yea its just a case of getting to grips with how it works (I have never used that control before) but looking at the propertys etc you get used to thinks like that

Glad you sorted it, if you could mark this resolved and carry out any ratings.

Pino