回复 10楼 大树临风
Public oform1
oform1=Newobject("form1")
oform1.Show
oform1.OlewebBrowse.SetFocus
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"
keypreview=.T.
Add Object olewebbrowse As OleControl With ;
Top = 6, ;
Left = 5, ;
Height = 800, ;
Width = 1270, ;
Name = "OleWebBrowse", ;
OleClass = "Shell.Explorer.2", ;
OleLCID = 1033
Procedure olewebbrowse.Init
*This.Navigate(SYS(5) + SYS(2003) + "/171.html")
* This.Navigate("http://www.mem.)
This.Navigate("D:\文档数据库\法规标准\标准规范\《放射治疗放射防护要求》解读.PDF")
* This.Navigate("D:\文档数据库\法规标准\标准规范\(完整word版)《安全带》GB6095-2009.doc")
Endproc
Enddefine