表单上如何显示HTML文档的内容
我有900个HTML的文档,是从一本FOXPRO编程书的光盘上分离出来的,是一个查询FOXPRO函数、命令的工具。她在32位的系统上好用。现在单位的电脑是64位的系统,那个工具不能用了。想用VF处理一下,那就可以用了。
遇到的问题是 如何在表单上显示HTML文档的内容??? 请高手指点迷津,谢谢!
程序代码:Public oform1
oform1=Newobject("form1")
oform1.Show
Return
Define Class form1 As Form
Top = 0
Left = 0
Height = 700
Width = 1024
ShowWindow = 2
DoCreate = .T.
Caption = "Form1"
WindowState = 2
WindowType = 1
Name = "form1"
Add Object olewebbrowse As OleControl With ;
Top = 6, ;
Left = 5, ;
Height = 960, ;
Width = 1270, ;
Name = "OleWebBrowse", ;
OleClass = "Shell.Explorer.2", ;
OleLCID = 1033
Procedure olewebbrowse.Init
This.Navigate(SYS(5) + SYS(2003) + "/171.html")
Endproc
Enddefine