当站点视图子窗口中的文件夹列表由“文件夹列表”视图更改为“导航”视图之后发生。
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