搜一下“WebBrowser”看看
简单示例:
of = CREATEOBJECT("WebForm")
of.show(1)
RETURN
DEFINE CLASS WebForm as Form
ADD OBJECT WB as Olecontrol WITH OleClass="Shell.Explorer.2",Top=0,Left=0,Width=this.Width,Height=this.Height,Anchor=15,Visible=.T.
PROCEDURE init
fHTML = "C:\temp\test.html"
STRTOFILE("<PRE>VFP & WebBrowser<PRE>",fHTML)
this.WB.navigate(fHTML, 0, NULL, NULL, NULL)
ENDPROC
ENDDEFINE