- Code: Select all Expand view
- #include "FiveWin.ch"
function Main()
local oWnd, oWebView, oContent, oLink1, oLink2
DEFINE WINDOW oWnd SIZE 2000, 1200
@ 0, 0 WEBVIEW oWebView OF oWnd HTML "file://" + hb_DirBase() + "index.html" SIZE 2000, 1200
REDEFINE ITEM oContent ID "content" OF oWebView
REDEFINE ITEM oLink1 ID "GiftCode" OF oWebView ;
ON CLICK oContent:SetHTML( "GiftCode" )
REDEFINE ITEM oLink2 ID "TopReview" OF oWebView ;
ON CLICK oContent:SetHTML( "TopReview" )
ACTIVATE WINDOW oWnd CENTERED ;
VALID ( oWebView:End(), .T. )
return nil
https://github.com/FiveTechSoft/screenshots/blob/master/webview_easy1.gif?raw=true