none
请教VB2005高手回答几个问题 RRS feed

  • 问题

  •  

    用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,,,,,,,

    2008年8月15日 4:54

答案

  • 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: luancfan@hotmail.com

    EMAIL: Xuanluan007@126.com

     

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

     

    2008年8月15日 10:31

全部回复