webbrowser类和webbrowser_v1类的区别.txt

VB技巧问答10000例 VB技巧问答10000例

WebBrowser_V1是 IE3的 类 ， 而 IE4以 后 版 本 使 用 WebBrowser类 。 
    如 果 你 希 望 新 打 开 的 网 页 出 现 在 同 一 个 窗 口 ， 可 以 这 样 做 ： 
    Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) 
     Set ppDisp = WebBrowser1.Object 
    End Sub 
    事 件 NewWindow2与 newWindow的 区 别 有 较 大 区 别 ， 使 用 事 件 NewWindow你 可 以 知 道 点 击 的 链 接 是 什 么 ， 而 使 用 事 件 NewWindow2无 法 知 道 。 而 NewWindow只 有 在 用 户 选 择 “ 在 新 窗 口 打 开 链 接 ” 时 才 会 激 发 ， 而 NewWindow2除 了 在 此 时 激 发 外 ， 当 网 页 使 用 window.open打 开 新 窗 口 时 也 激 发 。 上 面 的 工 作 也 可 以 使 用 NewWindow实 现 ： 
    Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 
     
    Private Sub Form_Load() 
     Set Web_V1 = WebBrowser1.Object 
     WebBrowser1.Navigate2 "http://askpro.yeah.net" 
    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 
<END>