主要是如何判断网页加载完成的
1、有一个DocumentComplet事件
该事件在文档完全装载并已初始化时激发。
?语法
PROCEDURE DocumentComplet
LPARAMETERS pDisp,URL
ENDPROC
?
请问参数pDisp使何使用，书上说是webbrowser控件本身，但pDisp=webbrowser1不行
2、我用上面的DocumentComplet事件来判断网页加载完成
加载网页的程序一直在循环等待，DocumentComplet事件就一直响应不了，这种情况一般怎样解决。
谢谢各位
------解决方案--------------------------------------------------------
当文档完全装载并已初始化时
DocumentComplet事件发生是对。在此事件加代码
?pdisp,url
当文档完全装载并已初始化时，显示
(Object) url(如果打开的是文档，显示文件路径+文件名)
------解决方案--------------------------------------------------------
- VBScript code
判断是否加载完成，这样就可以了：一个按钮的Click事件：Thisform.Tag=""Thisform.Olecontrol1.Navigate("www.126.com")Do While .T. If !Empty(Thisform.Tag) Exit Endif Inkey(0.1,"H") &&防止程序失去响应EnddoMessagebox("加载完成",64,"信息提示")表单的Load事件加代码：_vfp.AutoYield=.F. &&当表单包含 ActiveX 控件时，应将 AutoYield 属性设置为假(.F.),不处理未决的 Windows 事件表单的Unload事件加代码：_vfp.AutoYield=.T.Webbrowse控件（我这里为Olecontrol1）的DocumentComplet事件加代码：*** ActiveX Control Event ***Lparameters pdisp, urlThisform.Tag=url