如何判断网页加载完毕？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim WebBrowser1 As WinForm.WebBrowser

WebBrowser1 = e.Form.CreateControl("WebBrowser1", ControlTypeEnum.WebBrowser)

WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill

Dim webBrowser As Object = WebBrowser1.basecontrol

webBrowser.Url = new System.Uri(ProjectPath & "kindeditor\index.html", System.UriKind.Absolute)

s="nihao"

'msgbox(s)//这里不添加显示框，下面的一句代码就不起作用。为什么？

WebBrowser.Document.InvokeScript("setcontent", New String() {s})

我在网上找了一个判断网页加载完毕的代码，但不知道如何改写。

还是不行，是不是我问的方向不对，我是想在网页加载后，用窗体命令执行网页里的一个js函数。

这句把网页编辑器加载后

web.Url = new System.Uri(ProjectPath & "kindeditor\index.html", System.UriKind.Absolute)

'msgbox("hh")

s="nihao"

'msgbox(s)

执行下面这句话，把需要编辑的内容也加载进来。

web.Document.InvokeScript("setcontent", New String() {s})

现在的情况是，我不写msgbox这个对话框，下面的数据加载不进来，主要写上这一句，下面的这句话就可以加载进来数据。不写加载不进来。按照你给的地址我写了个判断函数，判断也是加载完毕了，但是还是不执行下面的函数。

vb.net里也不行

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

WebBrowser1.AllowWebBrowserDrop = False

WebBrowser1.IsWebBrowserContextMenuEnabled = False

WebBrowser1.WebBrowserShortcutsEnabled = False

WebBrowser1.ObjectForScripting = Me

WebBrowser1.Navigate("C:\Users\lenovo\source\repos\编辑器\index.html")

Dim s As String = "hello"

WebBrowser1.Document.InvokeScript("setcontent", New String() {s})//这句话是不起作用的。

End Sub

[此贴子已经被作者于2020/3/19 15:42:29编辑过]

如果使用浏览器控件，需要看到网页的，请参考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})

"然后其它操作都需要到全局代码里处理。"

这句话很关键，我没有把处理代码写到全局里，我尝试一下，谢谢这么迅速回答。

主题：如何判断网页加载完毕？