FrontPage VBA教程:PageWindowEx对象

   
PageWindows
PageWindowEx
Multiple objects

代表打开的编辑器会话,并且封装了 Microsoft FrontPage Page对象模型(与 Microsoft Internet Explorer 4.0 和其后的版本的文档对象模型兼容)。PageWindowEx对象是PageWindows集合的一个成员,代表在指定站点中的所有打开的网页窗口。在 PageWindows集合中,各个 PageWindowEx对象从零开始编入索引。

注意   当您访问 PageWindowEx对象时,也可以用 PageWindow对象的 Caption属性代替索引编号。这仅当 PageWindowEx对象已经被保存时才可行。以下语句返回打开的网页窗口的 PageWindow对象,该窗口的标题为 “C:\My Webs\Rogue Cellars\Zinfandel.htm”。


Set objPageWindow = ActiveWebWindow.PageWindow("Zinfandel.htm")
Set objPageWindow = WebWindows(0).PageWindow("Zinfandel.htm")

使用 PageWindow对象

使用 PageWindows(index),其中 index 是网页窗口项目的索引编号,用来返回单个 PageWindowEx对象。以下语句返回 PageWindows集合中第一个网页窗口项目的文件 URL。


PgePageOne = WebWindows(0).PageWindows(0).Document.Url

使用 ActiveFrameWindow属性来返回 PageWindowEx对象的当前框架。以下语句返回 ActiveFrameWindow对象。

注意   当前框架是当前拥有焦点的框架,在 FrontPage 里当前框架的周围显示有蓝色边框。


Set objActiveFrame _
    = WebWindows(1).ActivePageWindow.ActiveFrameWindow

使用 FrameWindow属性返回一个 FPHTMLWindow2对象,该对象可以用来返回 frames集合以及各个 frames集合网页的内容。


objFrameWindow = WebWindows(0).ActivePageWindow.FrameWindow

使用 Document属性来返回与 PageWindowEx对象关联的文档。以下语句返回与第一个 WebWindowEx对象的第一个 PageWindowEx对象相关联的文档。


Set objDoc = WebWindows(0).PageWindows(0).Document

您可以使用 IsDirty属性来判断 PageWindowEx对象是脏的,即自从上次刷新或保存后是否曾被修改过。假如 PageWindowEx对象有过修改,则 isDirty属性返回 True。在下列示例中,如果 PageWindows集合的第一项有过修改,则保存 PageWindowEx对象。


Private Sub CheckPageWindowIsDirty()
    Dim objPageWin As PageWindowEx
    Set objPageWin = WebWindows(0).PageWindows(0)
    If objPageWin.IsDirty = True Then
        objPageWin.Save
    End If
End Sub

您可以使用 ViewMode属性来设置网页的视图,如以下语句所示。有关该属性可用的枚举常数的详细信息,请参阅ViewMode属性下的表格。


WebWindows(1).PageWindows(1).ViewMode = fpPageViewHtml
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号