WebBrowser控件防止以IE打开新窗口

之前在EH论坛上面有人询问怎样控制点击的网页始终限制在WebBrowser控件中显示，这里介绍一个方法，需要用到NewWindow2事件和StatusTextChange事件。定义一个模块级字符串变量strURL用来保存新窗口的网 址。NewWindow2事件里的Cancel=True取消使用外部IE程序打开网页。

Dim strURL As String
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel = True
    WebBrowser1.Navigate strURL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    strURL = Text
End Sub