WebWindows 集合对象

多个对象

WebWindowEx 对象的集合。每个 WebWindow 对象代表 Microsoft FrontPage 中一个打开的窗口。WebWindowEx 对象是 WebWindows 集合的成员。

使用 WebWindows 集合

使用 Items(index) 可以返回单个 WebWindowEx 对象，其中 index 是 WebWindows 集合中某个项目的索引号。下列示例返回 WebWindows 集合中第四个项目的 Caption 属性。

Function ReturnWebWindowCaption() As String
    Dim myCaption As String
    Dim myWebWindow As WebWindowEx

    Set myWebWindow = Application.WebWindows(3)
    myCaption = myWebWindow.Caption
    ReturnWebWindowCaption = myCaption
End Sub

使用 WebWindows 属性可以返回 WebWindows 集合。下列示例关闭 WebWindows 集合中除 ActiveWebWindow 对象以外所有打开的 WebWindowEx 对象。

Private Sub CloseWebWindows
    Dim myWebWindows As WebWindows
    Dim myWebWindow As WebWindowEx
    Dim myActiveWebWindow As WebWindowEx

    Set myWebWindows = Application.WebWindows
    Set myActiveWebWindow = ActiveWebWindow

    For Each myWebWindow In myWebWindows
        If myWebWindow.Caption <> myActiveWebWindow.Caption Then _
            myWebWindow.Close
    Next
End Sub

使用 Application 属性可以返回 Application 对象。如果已经在使用 WebWindows 集合并想检查应用程序的版本号，可以通过 With myWebWindows 语句轻松地进行访问，如下例所示。

With myWebWindows
    myWebWindowCount = myWebWindows.Count
    myAppVersion = .Application.Version
    If myAppVersion < "4.0" Then
        MsgBox "Please upgrade your FrontPage software."
    Else
        For Each myWebWindow In myWebWindows
            myCaption = myWebWindow.Caption
            With myPageWindows
                myPageCount = PageWindows.Count
            End With
        Next
    End If
End With

使用 Close 方法可以关闭站点中单个 WebWindowEx 对象、多个 WebWindowEx 对象或所有 WebWindowEx 对象。有关 Close 方法的详细内容，请参阅下表中所描述的使用方法。

要点如果使用 Close 方法来关闭 FrontPage 中的所有 WebWindowEx 对象，那么 FrontPage 将会关闭应用程序。

Close 方法的用法	代码
关闭应用程序中单个 WebWindowEx 对象	`Application.WebWindows(index).Close` `or Application.WebWindows.Close(index)`
关闭应用程序中多个 WebWindowEx 对象（如上例所示）	`For Each myWebWindow In myWebWindows` `If myWebWindow.Caption <> _ myActiveWebWindow.Caption Then _ myWebWindow.Close Next`
关闭应用程序中所有 WebWindowEx 对象	`Application.WebWindows.Close`
关闭站点中单个 WebWindowEx 对象	`Webs(index).WebWindows(index).Close`
关闭站点中多个 WebWindowEx 对象	`Set myWeb = Web(index).WebWindows` `For Each myWebWindow In myWebWindows If myWebWindow.Caption _ <> myActiveWebWindow.Caption Then _ myWebWindow.Close Next`
关闭站点中的集合	`Webs(index).WebWindows.Close`
关闭 FrontPage 中所有 WebWindowEx 对象与 Quit 方法作用相同	表达式 `Application.WebWindows.Close` 与 `Application.Quit` 相同。

使用 Count 属性可以返回集合中 WebWindowEx 对象的数目。下列示例返回 WebWindowEx 对象的数目。

Web.WebWindows.Count

若要返回 WebWindows 集合的容器，请使用 Parent 属性。下列语句返回 Application 对象。

Application.WebWindows.Parent.Name