OnAfterWebWindowViewChange 事件

       

当站点窗口视图更改之后发生。

Private Sub application__OnAfterWebWindowViewChange(ByVal pWebWindow As WebWindow)

application  在类模块中以事件方式声明的 Application 类型的对象。

pWebWindow  WebWindowEx 对象,其中视图已更改。

示例

下列示例在每次视图更改时向用户显示新视图类型的名称。

Private Sub objApp_OnAfterWebWindowViewChange(ByVal pWebWindow As WebWindow)
'Occurs after the Web window view changes

    'Display message to user
    MsgBox "The view has changed to " & pWebWindow.ViewModeEx & " mode."

End Sub