
程序代码:
ASTACKINFO(ap)
cDefPath = ADDBS(JUSTPATH(ap[2]))
SET DEFAULT TO (cDefPath)
DECLARE long GetTopWindow IN user32 as apiGetTopWindow long
DECLARE long MoveWindow   IN user32 as apiMoveWindow   long,long,long,long,long,long
DECLARE long WebView_Create    IN myWebViewDll long,long,long,long,long
DECLARE long WebView_Destroy   IN myWebViewDll 
DECLARE long WebView_Resize    IN myWebViewDll
DECLARE long WebView_Navigate  IN myWebViewDll string
DECLARE long WebView_GoBack    IN myWebViewDll 
DECLARE long WebView_GoForward IN myWebViewDll
PUBLIC hWebView
of = CREATEOBJECT("WebView2_Demo")
of.show
READ EVENTS
CLEAR ALL
RETURN
DEFINE CLASS WebView2_Demo as Form
    ShowWindow  = 2
    WindowState = 2 
    ADD OBJECT cmd1 as commandbutton WITH left=10,top=10,width=20,height=22,caption="<"
    ADD OBJECT cmd2 as commandbutton WITH left=30,top=10,width=20,height=22,caption=">"
    ADD OBJECT txt1 as textbox WITH left=50,top=10,width=500,height=22,value="https://bbs.bccn.net/forum-22-1.html"
    ADD OBJECT cmd3 as commandbutton WITH left=550,top=10,width=30,height=22,caption=">>"
    
    PROCEDURE Destroy
        WebView_Destroy()
        CLEAR EVENTS
    ENDPROC
    
    PROCEDURE Activate
        IF EMPTY(this.Tag)
            this.Tag = "1"
            hWebView = WebView_Create(apiGetTopWindow(this.hWnd), 0, 40, this.Width, this.Height-40)
        ENDIF
    ENDPROC
    
    PROCEDURE Resize
        apiMoveWindow(hWebView, 0, 40, this.Width, this.Height-40,1)
        WebView_Resize()
    ENDPROC 
    PROCEDURE cmd1.click
        WebView_GoBack()
    ENDPROC 
    
    PROCEDURE cmd2.click
        WebView_GoForward()
    ENDPROC   
     
    PROCEDURE cmd3.click
        WebView_Navigate(STRCONV(ALLTRIM(thisform.txt1.value)+0h00,5))
    ENDPROC 
ENDDEFINE