当网页窗口或站点窗口获得焦点并成为当前窗口时发生。
Private Sub expression_OnActivate( )
expression 引用 PageWindowEx 或 WebWindowEx 类型对象的变量,该对象是在类模块中以事件方式声明的。
下列示例使用 IsDirty 属性来确定 PageWindowEx 对象是否包含未保存的修改,即自从上次刷新或保存后是否曾被修改过。在下列示例中,如果 PageWindows 集合的第一项包含未保存的修改,就保存 PageWindowEx 对象。
Private Sub PgeWindowEx_OnActivate()
'Displays a message when the window obtains focus
If PgeWindowEx.IsDirty Then
PgeWindowEx.Save
End If
End Sub