Form_Load 调用 InStr(1, WebBrowser1. "") 出错解决思路

Form_Load 调用 InStr(1, WebBrowser1...... "") 出错

VB code

Private Sub Command1_Click()If InStr(1, WebBrowser1.Document.body.innerText, "网站") <> 0 ThenLabel1.Caption = "没打开"ElseLabel1.Caption = "打开"End IfEnd Sub[code]Private Sub Form_Load()WebBrowser1.Navigate "www.baidu.cn"End Sub

以上代码运行后没有问题

但现在form_load中需要调用command1下面的命令
于是，

VB code

Private Sub Form_Load()WebBrowser1.Navigate "www.baidu.cn"command1_clickEnd Sub

提示错误：实时错误'91' 对象变量或with块变量未设置
错误代码行：If InStr(1, WebBrowser1.Document.body.innerText, "网站") <>0 Then
这是为什么啊，应该怎么解决，谢谢

没有分了，不好意思

[解决办法]

VB code

Private Sub Command1_Click()If InStr(1, WebBrowser1.Document.body.innerText, "网站") <> 0 ThenLabel1.Caption = "没打开"ElseLabel1.Caption = "打开"End IfEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate "www.baidu.cn"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Command1_ClickEnd Sub
[解决办法]
VB code
Private Sub Command1_Click()If InStr(1, WebBrowser1.Document.body.innerText, "网站") <> 0 ThenLabel1.Caption = "没打开"ElseLabel1.Caption = "打开"End IfEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate "www.baidu.com"''加入下面的一个循环，要等网页加载完毕才能读取吧Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE    DoEventsLoopCommand1_ClickEnd Sub 

 

查看更多 下一篇