Deactivate 事件

       

当浏览器或检查器不再是活动的窗口时发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。

Sub object_Deactivate()

object  该表达式的值为 ExplorerInspector 对象。

示例

本示例在顶层浏览器窗口不处于活动状态时,使用 WindowState 属性最小化浏览器窗口。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。

Dim myOlApp As Outlook.Application
Public WithEvents myOlExp As Outlook.Explorer

Public Sub Initialize_handler()
    Set myOlExp = myOlApp.ActiveExplorer
End Sub

Private Sub myOlExp_Deactivate()
    myOlExp.WindowState = olMinimized
End Sub