调用其他控件的过程

Question

VB里能不能调用其他控件的过程, 如调用  Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) 的过程我是想做个东西, 在命令按钮单击事件中.  
代码如:
 for i=0 to 10 
WebBrowser1.Navigate "http://i.123.com"
if 网页加载完成后地址变成*** then
combo1.additm "http://i.123.com ok"
else
combo1.additm "http://i.123.com no"
end
next想知道IF判断条件那块该怎么写,主要是怎么判断网页是否加载完或地址是否有变化

Answer 1

VB控件里面只有属性、事件和方法没有过程。WebBrowser1_NavigateComplete2就是网页加载完成后触发的事件，网页加载失败会触发Private Sub WebBrowser1_NavigateError事件，你可以参考以下这段代码：Dim url As String
Dim tt As LongPrivate Sub Command1_Click()
    tt = 0
    url = geturlhost(tt)
    WebBrowser1.Navigate2 url
End SubPrivate Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, url As Variant)
    Combo1.AddItem url & " ok"
    tt = tt + 1
    url = geturlhost(tt)
    If url <> "" Then
        WebBrowser1.Navigate2 url
    End If
End SubPrivate Sub WebBrowser1_NavigateError(ByVal pDisp As Object, url As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
    Combo1.AddItem url & " no"
    tt = tt + 1
    url = geturlhost(tt)
    If url <> "" Then
        WebBrowser1.Navigate2 url
    End If
End SubPrivate Function geturlhost(ByVal index As Long) As String
    Select Case index
    Case 0
        geturlhost = "http://www.sohu.com"
    Case 1
        geturlhost = "http://www.xxx.xxx"
    Case Else
        geturlhost = ""
    End Select
End Function