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