请问如何达到腾讯的浏览器的始终打开新窗口的那个功能

Question

请问如何在VB中达到腾讯的浏览器的始终打开新窗口的那个功能
谢谢了！！！！

Answer 1

来自CSDN在Form中加入webbrowser浏览页面，如果点击的链接在新窗口中打开就会在IE中打开，下面的代码会打开一个新的Form来显示新页面： Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 Private Sub Form_Load() 
Set Web_V1 = WebBrowser1.Object 
WebBrowser1.Navigate2 "http://www.applevb.com/" 
End Sub Private Sub Form_Unload(Cancel As Integer) 
End 
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