VB6 WebBrowser多窗口

VB6 WebBrowser多窗口

在WebBrowser打开target属性为"_blank"的网页链接时，会弹出IE窗口，十分烦人。

其实，在WebBrowser弹出IE窗口时，会激活一个事件NewWindow2。我们可以在过程WebBrowser1_NewWindow2()过程中输入代码，来避免弹出IE窗口。

多窗口代码：

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewForm As New Form1
NewForm.WebBrowser1.RegisterAsBrowser = True '防止名称相同
Set ppDisp = NewForm.WebBrowser1.Object
NewForm.Visible = True
End Sub