1,添加引用
MsgBox "新窗口打开"
End Sub
MsgBox "关闭窗口"
End Sub
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