OnAfterWebWindowSubViewChange 事件

       

当站点视图子窗口中的文件夹列表由“文件夹列表”视图更改为“导航”视图之后发生。

Private Sub application__OnAfterWebWindowSubViewChange(ByVal pWebWindow As WebWindow)

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

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

示例

下列示例显示子窗口中视图类型的名称,除非子窗口已被用户关闭。

Private Sub objApp_OnAfterWebWindowSubViewChange(ByVal pWebWindow As WebWindow)
'Occurs when a sub view in the Web window changes

    'Display a message indicating what view the sub window is currently in
    Select Case pWebWindow.SubViewMode
        Case fpWebSubViewFolders
            MsgBox "The view in the sub window has changed to Folder View."
        Case fpWebSubViewNavigation
            MsgBox "The view in the sub window has changed to Navigation View."
        Case fpWebSubViewNone
            MsgBox "The sub window has closed."
    End Select

End Sub