BeforeMinimize 事件

当用户最小化当前浏览器或检查器时发生。该事件在开始后可以取消。

expression  该表达式返回“应用于”列表中的一个对象，该对象在类模块中以事件形式声明。

Cancel  必选，Boolean 类型。当事件发生时为 False。如果事件过程将此参数设为 True，将不完成该操作，并且不将浏览器或检查器最小化。

示例

以下示例在将窗口最小化前向用户弹出一条消息。如果用户单击“是”，则将浏览器最小化。

Private Sub objExplorer_BeforeMinimize(Cancel As Boolean)
'Prompts the user before minimizing the Explorer

    Dim lngAns As Long

    lngAns = MsgBox("Are you sure you want to minimize the current window?", vbYesNo)
    If lngAns = vbYes Then
        Cancel = False
    Else
        Cancel = True
    End If
End Sub