werbrowser显示网页，怎么单击它的超连接调用自己的窗口(在线等待).

Question

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel = True
End Sub详细请看
http://www.china-askpro.com/msg26/qa49.shtml

Answer 1

在BeforeNavigate2事件里CANCEL,根据URL执行不同的代码就可以吧

Answer 2

同意，在BeforeNavigate2里可以取得url，然后根据这个url判断，显示子窗口

Answer 3

在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 

Answer 4

怎么单击后出现自己在VB中作的窗体，在哪放
form1.show

Answer 5

sorry，贴的不全，晚上给你。

Answer 6

这样可以Private Sub Command1_Click()
    '浏览任何一个可以弹出菜单的窗口，下面的窗口将弹出窗口，地址为
    'http://www.ap.dell.com/html/ap/popup/cn/zh/cnbsd.htm
    WebBrowser1.Navigate "http://www.applevb.com"
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Dim frmWB As Form1    Set frmWB = New Form1    frmWB.WebBrowser1.RegisterAsBrowser = True    Set ppDisp = frmWB.WebBrowser1.Object
    frmWB.Visible = True
End Sub点击command1浏览 www.applevb.com 点击页面中的链接将新打开一个Form来显示新页面。

Answer 7

感谢 TechnoFantasy大侠的帮助，我这就去测试，如有问题，还请多指教。国庆后结帐，再次感谢。