VB1个Webbrowser控件打开多个网页

1、用1至3个WEBbrowser控件实现
2、点击command1，打开网页1（baidu.com）
点击按钮2打开网页2（hao123.com）
点击按钮3打开网页3（zhidao.baidu.com）
删除按钮
3、打开一次后（如先按了按钮1后按按钮2，然后再按按钮1）时，不用再次加载。而第一次按时需要加载
4、按删除按钮关闭网页（也就是再按需要重复加载）
5、OK的话再加30分

窗体上放入一个WebBrowser1，把它的Index属性设为0（这点很重要！），再放入四个按钮分别是Command1、Command2、Command3、Command4。代码如下：

Sub WebShow(Index As Integer, Url As String)
Dim x As WebBrowser
If VarType(CallByName(Me, "WebBrowser1", VbGet, Index)) = vbObject Then
    Load WebBrowser1(Index)
    WebBrowser1(Index).Navigate Url
    WebBrowser1(Index).Silent = True
End If
For Each x In WebBrowser1
    x.Visible = (x.Index = Index)
Next
End Sub

Private Sub Command1_Click()   '按钮1
WebShow 1, "http://www.baidu.com"
End Sub

Private Sub Command2_Click()   '按钮2
WebShow 2, "http://www.hao123.com"
End Sub

Private Sub Command3_Click()   '按钮3
WebShow 3, "http://zhidao.baidu.com"
End Sub

Private Sub Command4_Click()   '删除
Dim x As WebBrowser
For Each x In WebBrowser1
    If x.Index > 0 Then Unload x
Next
End Sub

Private Sub Form_Load()
WebBrowser1(0).Visible = False
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://22.t2y.org/zz/fih26icf62cfxiicxi.html