- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- WebBrowser ，错误提示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145485)
-- 发布时间：2020/1/22 1:51:00
-- WebBrowser ，错误提示
e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = e.Row("ArticleContent")
此主题相关图片如下：qq截图20200122014654.png
当窗口打开时，会出现如上错误，如果用一个msg 弹窗，暂停下，让 WebBrowser 的网页（一个远程的KindeditorOA网页）加载完成，就不会提示错误，请问有什么办法解决这个错误？
-- 发布时间：2020/1/22 8:47:00
--
Dim web As System.Windows.Forms.WebBrowser = Forms("窗口1").controls("WebBrowser1").basecontrol
web.Navigate("http://www.baidu.com")
Do Until web.ReadyState = 4 \'等待网页加载完成
Application.DoEvents
Loop
If web.Document.Window.Frames.count > 0 Then
web.Document.Window.Frames(0).Document.body.InnerHtml = e.Row("ArticleContent")
Else
web.Document.body.InnerHtml = e.Row("ArticleContent")
End If
-- 发布时间：2020/1/22 8:54:00
--
谢谢！
-- 发布时间：2020/1/22 10:18:00
-- 再请教一个获取网页内容的问题
如图：如何从浏览器控件中获取这2个地方的内容
此主题相关图片如下：qq截图20200122101609.png
[此贴子已经被作者于2020/1/22 10:19:06编辑过]
-- 发布时间：2020/1/22 10:39:00
--
Dim tdelems As object = elem.GetElementsByTagName("font")
For Each tdelem As object In tdelems
Output.Show(tdelem.Innertext)
If tdelem.Children.count > 0 AndAlso tdelem.FirstChild.TagName = "a" Then
Output.Show(tdelem.FirstChild.GetAttribute("href"))
End If
Next