1、获得浏览器信息：

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.applevb.com"
End Sub

Private Sub Command2_Click()
    Dim oWindow
    Dim oNav
   
    Set oWindow = WebBrowser1.Document.parentWindow
    Set oNav = oWindow.navigator
    Debug.Print oNav.userAgent
   
    Set oWindow = Nothing
    Set oNav = Nothing
End Sub

点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。

2、弹出Webbrowser消息窗口

    Dim oWindow
   
    Set oWindow = WebBrowser1.Document.parentWindow
    oWindow.confirm "abcd"

发表于 @ 2004年07月29日 15:29:00|评论(loading...)