OnAfterSubViewChange 事件

       

在站点窗口的子视图更改之后发生。

Private Sub expression_OnAfterSubViewChange( )

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

示例

下列示例在活动站点窗口的子视图更改时或在子视图关闭之后向用户显示消息。

Private Sub objWebWindow_OnAfterSubViewChange()
 'Display a message indicating which view the subwindow is currently in

    Select Case objwebWindow.SubViewMode
        Case fpWebSubViewFolders
            MsgBox "The view in the subwindow has changed to Folder View."
        Case fpWebSubViewNavigation
            MsgBox "The view in the subwindow has changed to Navigation View."
        Case fpWebSubViewNone
            MsgBox "The sub window has closed."
    End Select

End Sub