Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
oIE = createobject('internetexplorer.application')
oIe.Navigate2('c:\frame0.jpg')
oIe.Visible = .t.
<HTML><BODY><img src='.\myfile.jpg'></BODY></HTML>
FUNCTION BROWSER
PARAMETER m.FILENAME
LOCAL LNRETVAL, LCOPERATION
LCOPERATION = "Open"
IF FILE(m.FILENAME)
DECLARE INTEGER ShellExecute IN SHELL32.DLL ;
INTEGER handle,;
STRING @sFile,;
STRING @lp,;
STRING @DIR,;
STRING @dir1,;
INTEGER ncmd
LNRETVAL = SHELLEXECUTE(0, LCOPERATION, m.FILENAME, "", "", 1)
ELSE
MESSAGEBOX("Unable to locate the web page:"+m.FILENAME,48,"Problem")
ENDIF
RETURN(.F.)
<HTML><BODY><img src='.\myfile.jpg' height=100 ></BODY></HTML>
I'm just curious. Wasn't viewing it directly in VFP6 easier?I’m looking for an easy way to view a .jpg via Internet Explorer using FoxPro 6.0.