WindowActivate 事件

在激活窗口时发生。

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

pWebWindow  WebWindowEx 对象。

说明

当 Microsoft FrontPage 的实例获得焦点时，每个打开的窗口都将触发 WindowActivate 事件。

示例

以下示例提示用户当站点窗口获得焦点时关闭窗口。

Private Sub expression_WindowActivate(ByVal pWebWindow As WebWindow)
'Occurs when a FrontPage window obtains focus.

    Dim strAns As String
    strAns = MsgBox("Are you sure you want to open the window " _
                     & pWebWindow.Caption & "?", _
                     vbYesNo)
    If strAns = vbNo Then
        pWebWindow.Close
    End If

End Sub