Private Sub Command1_Click()
WebBrowser1.Navigate http://192.168.1.10/
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
IF webbrowser1.locationUrl="http://192.168.1.10/" then
If Not (pDisp Is WebBrowser1.object) Then
'点A按钮
end if
end if
我运行上面写的句子,它总是不停的执行点A按钮的动作,这是怎么回事?是我理解错了
If Not (pDisp Is WebBrowser1.object) Then
的意思吗?
我的理解是它没有数据在等待服务器与本机之间交流了,还是理解反了?
WebBrowser1.Navigate http://192.168.1.10/
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
IF webbrowser1.locationUrl="http://192.168.1.10/" then
If Not (pDisp Is WebBrowser1.object) Then
'点A按钮
end if
end if
我运行上面写的句子,它总是不停的执行点A按钮的动作,这是怎么回事?是我理解错了
If Not (pDisp Is WebBrowser1.object) Then
的意思吗?
我的理解是它没有数据在等待服务器与本机之间交流了,还是理解反了?
If Not (pDisp Is WebBrowser1.object) Then Exit sub
意思应该是没有下载的数据就退出
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
这个事件