WebBrowser控件问题，请求帮助

Question

WebBrowser2.Navigate ("http://www.baidu.com")
Dim s As Object
Set s= WebBrowser2.Document.getElementById("u")
MsgBox s提示我“对象变量或with块变量未设置”这是什么原因呢？我是刚学习vb的，在很多地方可能都不了解，请求帮助学习。

Answer 1

你把这两件事分别放在两个事件里执行。Private Sub Command1_Click()
    WebBrowser2.Navigate ("http://www.baidu.com")
End SubPrivate Sub Command3_Click()
    Dim s As Object
    Set s = WebBrowser2.Document.getElementById("u")
    MsgBox s
End Sub

Answer 2

如果我点击的速度稍快点的话还是会杯具的。
问题根源实际就是网页未完全打开造成document对象未准备好。加个判断状态一直等待到网页准备好就行了。
WebBrowser2.Navigate ("http://www.baidu.com")While WebBrowser2.ReadyState <> 4
DoEvents
WendDim s As Object
Set s= WebBrowser2.Document.getElementById("u")
MsgBox s.innerHTML