以下是引用schtg在2017-7-31 15:40:36的发言:
@吹水佬:试了,弹出了新页面,但是空白的,不知何故?谢谢!
我这样测试的:
** test.prg
of = NEWOBJECT("Form1")
of.Show
READ EVENTS
CLEAR ALL
RETURN
DEFINE CLASS Form1 As Form
WindowState = 2
Add Object URL As TextBox WITH Top=10,Left=10,Width=600,Height=22,;
Value = "http://cx.
Add Object CMD1 As CommandButton WITH Top=10,Left=620,Width=40,Height=22,Caption = ">>>"
Add Object CMD2 As CommandButton WITH Top=10,Left=680,Width=40,Height=22,Enabled=.F., Caption = "查询"
Add Object WB As Olecontrol WITH OleClass="Shell.Explorer.2",Top=40,Left=0,Width=800,Height=460,Anchor=15,Visible=.T.
PROCEDURE UnLoad
CLEAR EVENTS
ENDPROC
PROCEDURE Init
this.show
this.WB.Silent = .T.
this.CMD1.click
ENDPROC
PROCEDURE CMD1.Click
thisform.CMD2.Enabled = .F.
thisform.WB.navigate(ALLTRIM(thisform.URL.Value), 0, NuLL, NULL, NULL)
thisform.WB.SetFocus
ENDPROC
PROCEDURE CMD2.Click
thisform.WB.document.parentWindow.execScript("Open()", "JavaScript")
ENDPROC
PROCEDURE WB.documentComplete(pdisp, url)
thisform.CMD2.Enabled = (SYS(3095, pdisp) == SYS(3095, this))
ENDPROC
ENDDEFINE
[此贴子已经被作者于2017-7-31 15:51编辑过]