FrontPage VBA教程:OnAfterWebWindowSubViewChange事件

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

Private Sub application__OnAfterWebWindowSubViewChange(ByVal pWebWindow As WebWindow)

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

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

VBA示例

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


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

上页:FrontPage VBA教程:OnAfterWebPublish事件 下页:FrontPage VBA教程:OnAfterWebWindowViewChange事件

FrontPage VBA教程:OnAfterWebWindowSubViewChange事件

FrontPage VBA教程:OnAfterWebWindowViewChange事件 FrontPage VBA教程:OnBeforePageSave事件
FrontPage VBA教程:OnBeforePageWindowViewChange事件 FrontPage VBA教程:OnBeforePublish事件
FrontPage VBA教程:OnBeforeSave事件 FrontPage VBA教程:OnBeforeSubViewChange事件
FrontPage VBA教程:OnBeforeViewChange事件 FrontPage VBA教程:OnBeforeWebPublish事件
FrontPage VBA教程:OnBeforeWebWindowSubViewChange事件 FrontPage VBA教程:OnBeforeWebWindowViewChange事件
FrontPage VBA教程:OnClose事件 FrontPage VBA教程:OnDeactivate事件
FrontPage VBA教程:OnPageClose事件 FrontPage VBA教程:OnPageNew事件
FrontPage VBA教程:OnPageOpen事件 FrontPage VBA教程:OnPageWindowActivate事件
FrontPage VBA教程:OnRecalculateHyperlinks事件 FrontPage VBA教程:OnWebClose事件
FrontPage VBA教程:OnWebFileCheckOut事件 FrontPage VBA教程:OnWebNew事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号