vb中webbrowser禁止新窗口打开超链接的方法

 创建一个窗体上的 web 浏览器控件。

1. 在该窗体的声明部分中添加以下：

   ASP/Visual Basic代码

   1. Dim WithEvents Web_V1 as SHDocVwCtl.WebBrowser_V1  

1. 这将声明 WebBrowser_V1 变量可以接收 WebBrowser_V1 为您提供 NewWindow 事件的事件。

2. 在 Form_Load 事件中添加以下：

   ASP/Visual Basic代码

   1. Set Web_V1 = WebBrowser1.Object  
   2. WebBrowser1.Navigate2 "http://www.microsoft.com/"  

1. 这样会将 WebBrowser_V1 对象设置为现有的 Internet 浏览器的 web 浏览器对象。

    

2. NewWindow2 事件触发后，Web_V1_NewWindow 事件将作为其输入参数之一触发与该链接的 URL。请记住不，将取消设置为 True NewWindow2 中。此外，设置处理变量为 True 将 NewWindow 中的事件处理程序，以便不会创建 Internet Explorer 的新实例。下面的代码演示了此事件处理程序和代码以便在当前窗口中浏览必要：

   ASP/Visual Basic代码

   1. Private Sub Web_V1_NewWindow(ByVal URL As String, _  
   2.                           ByVal Flags As Long, _  
   3.                           ByVal TargetFrameName As String, _  
   4.                           PostData As Variant, _  
   5.                           ByVal Headers As String, _  
   6.                           Processed As Boolean)  
   7.         Processed = True  
   8.         WebBrowser1.Navigate URL  
   9. End Sub  

右键单击一个链接，然后选择"打开在新窗口中"，您将找到链接仍会打开您的 web 浏览器控件内。

Tags: vb