> loBinder = CreateObject("VFPCOM.COMUtil") > lofrmWebBrowser = CreateObject('myweber') > loEventHandler = CreateObject('WebHandler') > loBiner.BindEvents(lofrmWebBrowser.oleWeb ,loEventHandler) >>
> DEFINE CLASS WebHandler AS session OLEPUBLIC > > IMPLEMENTS IWebBrowserApp IN "c:\winnt\system32\shdocvw.dll" > PROCEDURE IWebBrowserApp_Navigate(URL AS STRING, Flags AS VARIANT, TargetFrameName AS VARIANT, PostData AS VARIANT, Headers AS VARIANT) AS VOID; > HELPSTRING "Navigates to a URL or file." > * add user code here > gnWeberCount = gnWeberCount + 1 > DIMENSION gaoWeber[gnWeberCount] > gaoWeber[gnWeberCount] = CREATEOBJECT('myweber') > gaoWeber[gnWeberCount].GoWeb(URL) > gaoWeber[gnWeberCount].Show() > > ENDPROC > > .... > ... >