表单上如何显示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