应用于 PageWindowEx 对象的 Close 方法。
关闭指定的 PageWindowEx 对象。
expression.Close(ForceSave)
expression 必选。返回上述对象之一的表达式。
ForceSave 可选,Boolean 类型。值为 True 时,在 Close 方法完成之前强制保存指定的文件。默认值为 False。
关闭 PageWindows 集合中指定的网页,或者,如果为空,则关闭 PageWindows 集合中所有打开网页。
expression.Close(Index, ForceSave)
expression 必选。返回上述对象之一的表达式。
Index 可选,Variant类型。指向 PageWindows 集合中的单个项目。可以是对应于集合中的项目的任意数字,索引号从零开始。
ForceSave 可选,Boolean 类型。值为 True 时,在 Close 方法完成之前强制保存指定的文件。默认值为 False。
关闭指定的 WebWindowEx 对象。
expression.Close(Index)
expression 必选。返回上述对象之一的表达式。
Index 可选,Variant 类型。指向 WebWindows 集合中的项目。可以是对应于集合中的项目的任意数字,索引号从零开始。
应用于 WebEx 和 WebWindowEx 对象的 Close 方法。
关闭指定的对象。
expression.Close
expression 必选。返回上述对象之一的表达式。
以下示例关闭当前网页窗口。
Sub CloseWindow()
'Closes the active page window
Dim objApp As FrontPage.Application
Set objApp = FrontPage.Application
If Not objApp.ActivePageWindow Is Nothing Then
objApp.ActivePageWindow.Close ForceSave:=True
End If
End Sub
以下示例关闭 WebWindows 集合中的第一个站点的第一个网页窗口。
Sub CloseWindow()
'Closes a page window
Dim objApp As FrontPage.Application
Dim objPgeWindows As PageWindows
Set objApp = FrontPage.Application
Set objPgeWindows = objApp.ActiveWeb.WebWindows(0).PageWindows
objPgeWindows.Close Index:=0, ForceSave:=True
End Sub
以下示例关闭所有打开的站点窗口。
Sub CloseWindow()
'Closes all web windows
Dim objApp As FrontPage.Application
Dim objPgeWindows As WebWindows
Set objApp = FrontPage.Application
Set objWebWindows = objApp.ActiveWeb.WebWindows
objWebWindows.Close
End Sub
将该方法应用于 WebEx 和 WebWindowEx 对象。
以下示例关闭活动站点(如果活动站点存在)。
Sub CloseWindow()
'Closes the active document
Dim objApp As FrontPage.Application
Set objApp = FrontPage.Application
If Not objApp.ActiveWeb Is Nothing Then
objApp.ActiveDocument.Close
End If
End Sub