vb 学习学习下

方法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"