Image View (MS PAINT)

[Surjer]

Hello All, I just posted this under tables on accident - I then realized that this was not a tables question so Sorry about the double post!


I am trying to figure out how to start MS Paint with code and have it open a picture that is defined by a variable name..

Private Sub Text1_Change()
FNAME = "G:\SV\Survey\KUTTRUS\sagis\ms11\source\valve\"
FNAME = FNAME & Text1.Text & ".JPG"
End Sub

Private Sub Command1_Click()


'Start Paint and view fname <<---What should I do here??????


__________________
Jerry

 

[Surjer]

Getting Closer

Little Closer just can't get the file to open - Paint does though!

FNAME = Shell("c:\winnt\System32\mspaint.exe", 1) ' Run Paint.

 

[WayneRyan]

Jerry,

http://www.access-programmers.co.uk...d=161282&sortby=lastpost&sortorder=descending

hth,
Wayne

 

[mission2java_78]

Re: Getting Closer

Little Closer just can't get the file to open - Paint does though!

FNAME = Shell("c:\winnt\System32\mspaint.exe", 1) ' Run Paint.

You dont need FNAME

use the application plus the name of the file you are trying to open:

Shell("c:\winnt\yadayad myFile.bmp", 1)

Jon

 

[Surjer]

Final resolution

Dim strAppName As String
strAppName = "C:\WINNT\System32\mspaint.exe " & Chr(34) & FNAME & Chr(34)
Call Shell(strAppName, vbMaximizedFocus)


Thanks for all your help.......