VB新手 webbrowser 問題, 急, 後天交功課>.<''

Question

Private Sub Command1_Click()
check (WebBrowser1)
End SubSub check(wb) '<< 這裡用wb 為什麼錯誤, 應該寫什麼來定義 webbrowser??For i = 0 To wb.Document.All.length - 1
If UCase(wb.Document.All(i).tagName) = "A" Then
  Set ggrepa = CreateObject("VBScript.RegExp")
  ggrepa.Pattern = Text3.Text
  ggrepa.Global = True
  Set ggmat = ggrepa.Execute(wb.Document.All(i).href)
    For Each ggresult In ggmat
      wb.Document.All(i).Click
    Next
End If
Next iEnd Sub

Answer 1

程序中有很多個webbrowser都要用到check中的代碼不想重複代碼多次eg: check(webbrowser1),check(webbrowser2),check(webbrowser3),....而wb每次代表指定的webbrowser

Answer 2

方案一:使用数组控件,把多个WEBBROWSER控件做成控件数组即可.方案二:check(Me.Controls("WebBrowser" & I))I是你的控件后面的数字