Foxtable(狐表)用户栏目专家坐堂 → 如何判断网页加载完毕?


  共有2707人关注过本帖树形打印复制链接

主题:如何判断网页加载完毕?

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/19 13:37:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/19 15:46:00 [显示全部帖子]

如果使用浏览器控件,需要看到网页的,请参考2楼第一个链接的实例,需要在全局代码添加一个事件,然后浏览器控件绑定到这个事件。然后其它操作都需要到全局代码里处理。

如果不需要看到网页的,参考第二个链接的用法
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate(ProjectPath & "kindeditor\index.html")
Do Until web.ReadyState = 4 '等待网页加载完毕
    Application.DoEvents
Loop
web.Document.InvokeScript("setcontent", New String() {s})

 回到顶部