WebBrowser控件组的问题

Question

现在有控件组
For i = 0 To 2
WebBrowser1(i).Navigate "http://www.baidu.com/"Next
现在要求，3个WebBrowser1都加载完才执行Call Command5_Click
以下代码是只要有一个加载完就运行了，怎样改成3个都加载完才运行Command5_Click
Private Sub WebBrowser1_DocumentComplete(index As Integer, ByVal pDisp As Object, URL As Variant)Dim sa As String, a As String, t As String, ssa As String
Call Command5_Click
End Sub

Answer 1

本帖最后由 bcrun 于 2010-12-31 22:46:47 编辑

  

Answer 2

Dim LoadCount As Long
'...
   LoadCount = 0
'...
Private Sub WebBrowser1_DocumentComplete(index As Integer, ByVal pDisp As Object, URL As Variant)Dim sa As String, a As String, t As String, ssa As String
Select Case Index
Case 1,3,4: LoadCount = LoadCount + 1
End Select
If LoadCount>=3 Then
   Call Command5_Click
End If
End Sub