没有啊,我试的结果只发生一次: Dim iPrivate Sub Command1_Click() WB.Navigate2 "http://club.qq.com/act/2006/pt/act_getpic.php?id=1" i = 1 End SubPrivate Sub WB_DownloadComplete() MsgBox i i = i + 1 End Sub
重新做个窗体FORM,原来的那个窗体经过多次修改会出现问题,换个新的,代码拷贝进去就行了
我也碰到这样的问题:我写一个dll中调用WebBrowser1控件,在WebBrowser1_TitleChange 事件中加入 If InStr(WebBrowser1.LocationURL, "www.sina.com") <> 0 then msgbox "ok" ............(中间有些省) WebBrowser1.Navigate1.Navigate "http://www.sohu.com" end if当 msgbox 出现时,如果我不点确定钮的话,msgbox又弹出来一个,我认为这是TitleChange 事件的问题,TitleChange 事件是当浏览地址改变或在用时发生,请问有没有其他事件或其他方法可以用:当地址改变时调用一次IF?
我也碰到这样的问题:我要在ACAD中调用一个窗口ActiveX dll我写一个ActiveX dll中调用WebBrowser1控件,在WebBrowser1_TitleChange 事件中加入 Private Sub Form_Load() WebBrowser1.Navigate "http://www.sina.com.cn/" End SubPrivate Sub WebBrowser1_TitleChange(ByVal Text As String) If InStr(WebBrowser1.LocationURL, "www.sina.com") <> 0 then msgbox "OK1" if dir("c:\autoexec.bat") <> "" then msgbox "OK2" else msgbox "OK3" end if WebBrowser1.Navigate1 "http://www.sohu.com" end ifend sub当 OK1 出现时,如果我点OK1确定钮的话,msgbox又弹出来一个OK2, 如果我点OK2确定钮的话奇怪的事发生了! OK1 又出现了,如果我点OK1确定钮的话,又弹出来一个OK2!再点OK2确定钮的话 才发生 WebBrowser1.Navigate1 "http://www.sohu.com" 事件我认为这是TitleChange 事件的问题,TitleChange 事件是当浏览地址改变或在用时发生,请问有没有其他事件或其他方法可以用?
http://club.qq.com/act/2006/pt/act_getpic.php?id=1
这个地址!它是同一内容处理2次。。
Dim iPrivate Sub Command1_Click()
WB.Navigate2 "http://club.qq.com/act/2006/pt/act_getpic.php?id=1"
i = 1
End SubPrivate Sub WB_DownloadComplete()
MsgBox i
i = i + 1
End Sub
msgbox "ok"
............(中间有些省)
WebBrowser1.Navigate1.Navigate "http://www.sohu.com"
end if当 msgbox 出现时,如果我不点确定钮的话,msgbox又弹出来一个,我认为这是TitleChange 事件的问题,TitleChange 事件是当浏览地址改变或在用时发生,请问有没有其他事件或其他方法可以用:当地址改变时调用一次IF?
WebBrowser1.Navigate "http://www.sina.com.cn/"
End SubPrivate Sub WebBrowser1_TitleChange(ByVal Text As String)
If InStr(WebBrowser1.LocationURL, "www.sina.com") <> 0 then
msgbox "OK1"
if dir("c:\autoexec.bat") <> "" then
msgbox "OK2"
else
msgbox "OK3"
end if
WebBrowser1.Navigate1 "http://www.sohu.com"
end ifend sub当 OK1 出现时,如果我点OK1确定钮的话,msgbox又弹出来一个OK2, 如果我点OK2确定钮的话奇怪的事发生了! OK1 又出现了,如果我点OK1确定钮的话,又弹出来一个OK2!再点OK2确定钮的话 才发生 WebBrowser1.Navigate1 "http://www.sohu.com" 事件我认为这是TitleChange 事件的问题,TitleChange 事件是当浏览地址改变或在用时发生,请问有没有其他事件或其他方法可以用?