请教VB2005高手回答几个问题

Question

 

用WEBBROWSER控件实现在浏览器中点击超链接时不弹出新窗口，在6.0中能实现代码如下：

 

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Set ppDisp = Form1.WebBrowser2.Object
End Sub

Private Sub WebBrowser2_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    WebBrowser1.Navigate URL
    Cancel = True
End Sub

===============================

初次接触2005不知道在2005中怎么用，怎样达到在6.0下的效果，请教高手,sos,,,,,,,

Answer 1

用这个控件

 

http://www.codeproject.com/KB/cpp/ExtendedWebBrowser.aspx

 

Answer 2

 

楼上的解答我没弄明白，网站打不开，我打算做一个浏览器的

Answer 3

Code Snippet

  Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        e.Cancel = True
        WebBrowser1.Navigate(WebBrowser1.StatusText)
    End Sub

 

 

这个代码不保证稳定性..因为我实在是新手。

这个只限于一些StatusText正常的网站。

 

 

 

我是新手

多多交流

 

QQ:498483439

MSN: [e-mail]

EMAIL: [e-mail]

 

http://struggle-luan.blog.163.com