vb6.0 webbrowser控件做的瀏覽器,怎樣解決ie打開新窗口問題

方法一：
Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text 點擊Command1打開Text1的網址
End Sub

Private Sub Form_Resize()
If Me.WindowState <> 1 Then WebBrowser1.Width = Me.ScaleWidth: WebBrowser1.Height = Me.ScaleHeight - WebBrowser1.Top 讓Webbrowser1適應窗口大小
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
If Option1.Value = True Then 如果單選框Option1(在當前窗口打開)
Set ppDisp = WebBrowser2.Application
WebBrowser2.ZOrder
在Webbrowser2中打開，請跳到WebBrowser2_BeforeNavigate2看
Else 如果選擇了在新窗口中打開
Dim NewForm As New Form1
NewForm.Show 彈出一個新的Form1窗口
Set ppDisp = NewForm.WebBrowser1.Application
NewForm.WebBrowser1.ZOrder
在新彈出的Form1窗口打開
End If
End Sub

Private Sub WebBrowser2_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
WebBrowser2.Stop Webbrowser2停止
WebBrowser1.Stop Webbrowser1停止
WebBrowser1.Navigate URL Webbrowser1打開網址
End Sub

方法二：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
End Sub

方法三：
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "www.sina.com"
End Sub

Private Sub Web_V1_NewWindow(ByVal URL As String, _
   ByVal Flags As Long, _
   ByVal TargetFrameName As String, _
   PostData As Variant, _
   ByVal Headers As String, _
   Processed As Boolean)
     Processed = True
     WebBrowser1.Navigate URL
End Sub

注意 這句Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
放在通用代碼里