WindowDeactivate 事件

站点窗口失去活动时发生。

expression  在类模块中以事件方式声明的 Application 类型对象的变量名称。

pWebWindow  WebWindowEx 对象。

示例

以下示例提示用户当窗口失去焦点时，关闭窗口。

Private Sub expression_WindowDeactivate(ByVal pWebWindow As WebWindow)
'Occurs when a Microsoft FrontPage window loses focus.

    Dim strAns As String
    strAns = MsgBox("Do you want to close this window?" _
                     & pWebWindow.Caption & "?", _
                     vbYesNo)
    If strAns = vbYes Then
        pWebWindow.Close
    End If

End Sub