您的位置:首页 > 编程语言 > VB

vb 浏览器打开关闭通知

2008-11-29 11:42 148 查看
1,添加引用

SHDOCVW.dll

2,声明变量

Dim WithEvents shellWindow As SHDocVw.ShellWindows

3,在表单得load事件中创建对象

Set shellWindow = New SHDocVw.ShellWindows

4,在表单的卸载事件中销毁对象

Set shellWindow = Nothing

5,注册窗口打开事件

Private Sub shellWindow_WindowRegistered(ByVal lCookie As Long)

MsgBox "新窗口打开"

End Sub

6,注册窗口关闭事件
Private Sub shellWindow_WindowRevoked(ByVal lCookie As Long)

MsgBox "关闭窗口"

End Sub
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: