求助:IE对象中有一个表格总显示“加载中。。。”
用360浏览器查看,发现建立的对象是以“兼容”方式打开的,用鼠标切换到“极速”模式后就好了。*RETURN
SET EXCLUSIVE On
CLOSE DATABASES
PUBLIC Formx
Formx = NEWOBJECT("openpage")
Formx.show()
DO WHILE Formx.web.busy = .t. OR Formx.web.ReadyState != 4
INKEY(0.5)
ENDDO
MESSAGEBOX("completed",0,"打开网页",500)
*Formx.release&&结束
DEFINE CLASS openpage as Form
height = 400
width = 1200
autocenter = .t.
PROCEDURE init
this.AddObject("web","olecontrol","Shell.Explorer")
WITH thisform.web
.top = 2
.left = 2
.height = 394
.width = 1194
.visible = .t.
ENDWITH
ENDPROC
PROCEDURE show
thisform.web.navigate2("http://emweb.securities.)
ENDPROC
ENDDEFINE
CLOSE DATABASES
SET EXCLUSIVE OFF