返回指定对象中打开的 WebWindows 对象的集合。
本示例检查是否有设置为“网页”视图的站点窗口,并将“网页”视图中的这些窗口更改到“文件夹”视图。
Private Sub GetViewModes()
Dim myWebWindows As WebWindows
Dim myWebWindow As WebWindowEx
Dim myView As FpWebViewMode
Set myWebs = Webs
Set myWebWindows = myWebs.WebWindows
For Each myWebWindow In myWebWindows
myView = myWebWindow.ViewMode
If myView = fpWebViewPage Then
myWebWindow.ViewMode = fpWebViewFolders
End If
Next
End Sub