在一个命令Visual Basic中导航多个浏览器

Question

所以，如果我有三个网络浏览器，我希望他们都能导航到google.com，我必须这样做：

 webbrowser1.navigate("google.com")
 webbrowser2.navigate("google.com")
 webbrowser3.navigate("google.com")

是否可以在一行代码中执行此操作？

Answer 1

子例程：

NavigateTo "google.com"

哪个电话

sub NavigateTo(url as string)
    webbrowser1.navigate(url)
    webbrowser2.navigate(url)
    webbrowser3.navigate(url)
end sub

Answer 2

您可以使用数组以及 for 循环，如下所示。

Dim webbrowser(3) As WebBrowser
    For value As Integer = 0 To 3
        webbrowser(value) = New WebBrowser
        webbrowser(value).Navigate("www.google.com")
    Next

注意： - 只有3个实例，可能没有必要使用此代码，但对于30代码可能肯定有帮助。