FrontPage VBA教程:WebWindows集合对象

   
多个对象
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.CloseApplication.Quit 相同。

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


Web.WebWindows.Count

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


Application.WebWindows.Parent.Name

上页:FrontPage VBA教程:WebWindowEx对象 下页:FrontPage VBA教程:ActiveDocument属性

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属性 FrontPage VBA教程:anchors属性
FrontPage VBA教程:AnswerWizard属性 FrontPage VBA教程:applets属性
FrontPage VBA教程:Application属性 FrontPage VBA教程:Assistant属性
FrontPage VBA教程:bgColor属性 FrontPage VBA教程:body属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号