可以弄个WebBrowser1控件数组, WebBrowser1(0) WebBrowser1(1)
设计的时候重叠在一起,而后当打开新窗口时,原窗口隐藏,用对应的另一个窗口打开即可
由于两个窗口重叠在了一起,用户也无法觉察到
Dim iNum As Integer
Private Sub Command1_Click()
WebBrowser1(iNum).Navigate "
http://www.baidu.com"
End Sub
Private Sub Form_Load()
ShowWeb iNum
End Sub
Private Sub WebBrowser1_NewWindow2(Index As Integer, ppDisp As Object, Cancel As Boolean)
ShowWeb 1 - Index
Set ppDisp = WebBrowser1(1 - Index).Object
End Sub
Private Sub ShowWeb(ByVal i As Integer)
WebBrowser1(i).Visible = True
WebBrowser1(1 - i).Visible = False
End Sub