OnClose 事件

应用于 PageWindowEx 对象的 OnClose 事件。

当用户关闭活动网页窗口时发生。

Private Sub expression_OnClose(Cancel As Boolean)

expression 引用 PageWindowEX 类型对象的变量名称，该对象是在类模块中以事件方式声明的。

Cancel Boolean 类型，确定操作是否会被取消。如果为 True，则活动网页窗口不会关闭。

应用于 WebEx 对象的 OnClose 事件。

当用户关闭活动站点窗口时发生。

Private Sub expression_OnClose(pCancel As Boolean)

expression 引用 WebEx 类型对象的变量名称，该对象是在类模块中以事件方式声明的。

Cancel Boolean 类型，确定操作是否会被取消。如果为 True，则活动站点不会关闭。

示例

下列示例在关闭活动网页窗口之前提示用户。如果用户单击“否”，则窗口不会关闭。

Private Sub PgeWindowEx_OnClose(Cancel As Boolean)
'Displays a message

    Dim strAns As String
    'Prompt user
    strAns = MsgBox("Are you sure you want to close the active page window?", _
                    vbYesNo)
    If strAns = vbYes Then
        Cancel = False
    Else
        Cancel = True
    End If

End Sub