Load image from file location

[djcritter]

I've got the location of an image in a text box on a form and i have the image showing on the form in a image box but i want it to act like an OLE object so that when the image is double clicked it opens the image in photo editor.

I can get photo edit to load but can't get the image to open. This is the code i'm using so far.

Private Sub PHOTO1VIEW_DblClick(Cancel As Integer)
Dim RetVal
RetVal = Shell("C:\Program Files\PhotoEd\PHOTOED.exe me.photo1path", 1)
End Sub

Can someone please help!!

 

[alastair69]

RetVal = Shell("C:\Program Files\PhotoEd\PHOTOED.exe me.photo1path", 1)

Try

RetVal = Shell("C:\Program Files\PhotoEd\PHOTOED.exe\me.photo1path", 1)

I am not sure if this will work or not.

Alastair

 

[djcritter]

That change did not work but thanks any way. I've changed the code a bit here it is now.

Private Sub PHOTO1VIEW_DblClick(Cancel As Integer)
Dim RetVal
Dim PathToFile As String
PathToFile = Me.PHOTO1Path
RetVal = Shell("C:\Program Files\PhotoEd\PHOTOED.exe pathtofile", 1)
End Sub