IF FILE("&lcFile") lcHTML = FILETOSTR(lcFile) lcHTML = STRTRAN(lcHTML,"FCIS","<FONT COLOR='BLUE'><B>FCIS</B></FONT>",1,20) lcHTML = "<html><body>"+lcHtml+"</body></html>" WITH thisform.overview.OleComments .Navigate("about:blank") lnStartSeconds = SECONDS() DO WHILE .ReadyState <> 4 ; AND (SECONDS()-lnStartSeconds <= 10 ) DOEVENTS ENDDO .Document.Open() .Document.Write(lcHtml) .Document.Close() lnStartSeconds = SECONDS() DO WHILE .ReadyState <> 4 ; AND (SECONDS()-lnStartSeconds <= 1 ) DOEVENTS ENDDO ENDWITH ENDIFHad to include pathing to view the image, which presents another issue with distribution...
<IMG SRC="file:///C:/blah/blah/auto_asset.jpg">
>>>>>lcFile = "overview" + ALLTRIM(STR(thisform.zPageIntro - 1))+".txt" >>>>IF FILE("&lcFile") >>>> lcHTML = FILETOSTR(lcFile) >>>> lcHTML = STRTRAN(lcHTML,"FCIS","<FONT COLOR='BLUE'><B>FCIS</B></FONT>",1,20) >>>> WITH thisform.overview.oleWebControl >>>> .Navigate("about:blank") >>>> .Document.Open() >>>> .Document.Write(lcHtml) >>>> .Document.Close() >>>> .refresh() >>>> ENDWITH >>>> thisform.overview.Refresh() >>>>ENDIF >>>>>>>>The problem is that the refreshing of the text in the WebControl from the different text files is terrible. Sometimes it works, sometimes not. A page's text will show going forward, but going backward it wont. Very random.
>>>><img src="auto_asset.jpg" width="280" height="230">