FrontPage VBA教程:WebEx对象

   
Webs
WebEx
多个对象

代表 Microsoft FrontPage 站点。WebEx对象是Web集合的成员,代表 Web 站点上所有打开的网页。FrontPage 提供了在 web 服务器上创建多个 WebEx对象的能力。在 Webs集合中,各个 WebEx对象从零开始索引。FrontPage 中 Web 站点的目录分层结构类似于文件夹分层结构。任何 WebFolder 都可以代表 Web 站点,但不是每个 WebFolder 都必定代表 Web 站点。Web 站点文件夹分层结构提供了指向 web 服务器目录上的文件夹和文件的链接。

使用站点对象属性

使用 Web属性返回 WebEx对象。以下的示例检查站点的操作系统处理长文件名的能力。

注意  要运行本示例,请创建一个表单,其上有一个名为cmdCheckLongFilenames 的命令按钮,以及一个文本框称为txtLongFilenames,然后将本示例复制到代码窗口中。


Private Sub cmdCheckLongFilenames()
    Dim objPageWin As PageWindow
    Set objPageWin = ActivePageWindow
    With objPageWin
        If .Web.AllowsLongFilenames = True Then
            txtlongFilenames = _
            "This operating system uses long file names."
            Exit Sub
        Else
            txtlongFilenames = _
            "This operating system only uses short file names."
        End If
    End With
End Sub

使用 Web(index),其中 index 是站点项目的索引号,用来返回单个 WebEx对象。以下示例返回 Web集合里第一个站点项目的 URL。


Application.Webs(0).Url

使用 ActiveWebWindow属性返回所选的 WebWindowEx对象。从 WebWindowEx对象,您可以访问 ActiveDocument、ActivePageWindow 或 Application属性,以及 Caption、PageWindows、Parent、ViewMode、Visible 和 Web 等属性。以下示例返回当前文档的创建日期和文件大小。

注意  虽然 Date 是 Visual Basic for Applications 中的可用类型,但是 WebWindowEx对象以字符串格式返回日期而不会自动将字符串转换成日期格式。


Private Sub ActiveDocDateSize()
    Dim objWebWindow As WebWindowEx
    Dim strFileSize As String
    Dim strCreateDate As String
    Set objWebWindow = ActiveWebWindow
    With objWebWindow
        strFileSize = .ActiveDocument.fileSize
        strCreateDate = .ActiveDocument.fileCreatedDate
    End With
End Sub

RevisionControlProject 和 IsUnderRevisionControl属性返回 Web对象的修订状态。您可以通过 Microsoft Visual SourceSafe 或通过 Microsoft Office 风格的锁定在 Microsoft FrontPage 中进行版本控制。有关版本控制工程和 Office 风格的锁定的详细信息,请参阅管理版本控制

如果版本控制工程和有效的 Visual SourceSafe 工程不一致,FrontPage 就会默认成 Office 样式锁定。以下示例返回 RevisionControlProject 和 IsUnderRevisionControl属性,并包含版本控制工程示例。

注意  要运行本示例,请创建模块并把本示例复制到代码窗口中。您必须打开站点。

Private Sub SourceControl()


    Dim objWeb As WebEx
    Set objWeb = ActiveWeb
    If Not(objWeb.IsUnderRevisionControl) Then
        objWeb.RevisionControlProject = "<FrontPage-based Locking>"
    End If
End Sub
Private Sub ReturnRevisionState()
    Dim objWeb As WebEx
    Dim strRevCtrlProj As String
    Dim blnIsUnderRevCtrl As Boolean
    Set objWeb = ActiveWeb
    With objWeb
        RevCtrlProj = .RevisionControlProject
        blnIsUnderRevCtrl = .IsUnderRevisionControl
    End With
End Sub

使用 RootFolder 和 RootNavigationNode属性来确定根文件夹或根导航节点。RootFolder属性返回指向 Web 站点的根文件夹的指针。RootNavigationNode属性返回 NavigationNode对象,从该对象可以访问站点中其他所有的导航节点。当您创建站点时会默认创建 RootNavigationNode对象,它是导航结构的基础,通过Children属性来访问。导航结构的第一个子节点是站点主页。以下示例返回 RootNavigationNode对象的根文件夹名称和 URL。


Private Sub GetRootInfo()
    Dim objWeb As WebEx
    Dim strRootFolder As String
    Dim strHomeNavNode As String
    Set objWeb = ActiveWeb
    With objWeb
        strRootFolder = .RootFolder.Name
        strHomeNavNode = .RootNavigationNode.Children(0).Url
    End With
End Sub

使用 SharedBorders属性将站点的共享边框设置为打开或关闭。以下语句将 SharedBorders属性设置为 True,并且打开指定站点的共享边框。


ActiveWeb.SharedBorders(fpBorderTop) = True

使用 WebWindows属性来返回 WebWindow对象的集合,该对象是包含在当前 WebEx对象里。以下语句返回 WebWindows集合的计数。


Application.WebWindows.Count

使用站点对象方法

使用 Activate方法将焦点放置在当前对象上。以下语句检查myAdventureWorksWeb 是否是活动站点;如果不是,就激活myAdventureWorksWeb


If ActiveWeb <> myAdventureWorksWeb Then
    objAdventureWorksWeb.Activate
End If

使用 ApplyNavigationStructure方法将新创建或修改的导航结构应用于 Web 站点。以下语句将导航结构应用于站点上,在这里 Adventure Works 站点的变量是webAdventureWorksWeb


myAdventureWorksWeb.ApplyNavigationStructure

使用 CancelRequests方法来取消所有服务器请求。以下语句取消 Adventure Works 站点对服务器的所有请求,以webAdventureWorksWeb 作为站点变量。

注意  客户端会停止所有对服务器的请求;然而服务器可能已经开始事务处理,在这种情况下就会继续下去直到完成事务处理,然后取消余下的请求(如果有的话)。


myAdventureWorksWeb.CancelRequests

使用 LocateFile 或 LocateFolder方法来返回站点里的 WebFile 或 WebFolder对象。以下示例查找基于磁盘的站点的文件夹。


Application.Web.LocateFolder("C:\My Webs\Adventure Works\images")

使用 Publish方法将站点发布到 Web 服务器。以下的语句将 Adventure Works 站点发布到 Personal Web Server 站点。


Dim objWeb As WebEx
Set objWeb = Application.Web
With objWeb
    .Publish _
    "http://myServer/wwwroot", fpPublishAddToExistingWeb

FpWebPublishFlags 枚举类型能够以下列语句所示的方式连接在一起。


myWeb.Publish _
    "http://myServer/wwwroot", fpPublishAddToExistingWeb + _
    fpPublishCopySubwebs

上页:FrontPage VBA教程:UndoTransaction对象 下页:FrontPage VBA教程:WebFile对象

FrontPage VBA教程:WebEx对象

FrontPage VBA教程:WebFile对象 FrontPage VBA教程:WebFiles集合对象
FrontPage VBA教程:WebFolder对象 FrontPage VBA教程:WebFolders对象集合
FrontPage VBA教程:Webs集合对象 FrontPage VBA教程:WebWindowEx对象
FrontPage VBA教程:WebWindows集合对象 FrontPage VBA教程:ActiveDocument属性
FrontPage VBA教程:activeElement属性 FrontPage VBA教程:ActiveFrameWindow属性
FrontPage VBA教程:ActivePageWindow属性 FrontPage VBA教程:ActiveWeb属性
FrontPage VBA教程:ActiveWebWindow属性 FrontPage VBA教程:alinkColor属性
FrontPage VBA教程:all属性 FrontPage VBA教程:AllFiles属性
FrontPage VBA教程:AllFolders属性 FrontPage VBA教程:AllNavigationNodes属性
FrontPage VBA教程:AllowMultipleResponses属性 FrontPage VBA教程:AllowsLongFilenames属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号