方法1:
Private Sub Command1_Click()
WebBrowser1.Navigate "www.baidu.com"
While WebBrowser1.ReadyState <> 4
oEvents
Wend
msgbox "加载完毕"
End Sub
方法二:
Private Sub Command1_Click()
WebBrowser1.Navigate "www.baidu.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp Is WebBrowser1.Object Then msgbox "加载完毕"
End Sub
添加调试
调试信息 Debug.Print "sdffdsfdas"