FrontPage VBA教程:Add方法

应用于 Lists对象的 Add方法。

将新 List对象添加到 Lists集合中。

expression.Add(Name, ParentFolder, ListType, Description)

expression  必选。返回Lists对象的表达式。

Name  必选。String 类型。代表新列表名称。

ParentFolder  可选。String 类型。代表与 List 关联的父文件夹。

ListType  可选。FpListType 常数。代表列表类型。

FpListType 可以是下列这些 FpListType 常数之一。
fpListTypeBasicList 默认
fpListTypeDocumentLibrary
fpListTypeSurvey

Description  可选。String 类型。代表 List对象的说明。

应用于 ListFields对象的 Add方法。

将新ListField对象添加到 ListFields集合中。

expression.Add(Name, Description, FieldType, Required, DefaultValue)

expression  必选。返回上述对象之一的表达式。

Name  必选。String 类型。代表域名称。

Description  可选。String 类型。代表域的说明。

DefaultValue  可选。Variant 类型。定义默认值。

FieldType  可选。FpFieldType 常数。代表新域类型。

FpFieldType 可以是下列这些 FpFieldType 常数之一。
fpFieldChoice
fpFieldComputed
fpFieldCounter
fpFieldCurrency
fpFieldDateTime
fpFieldFile
fpFieldInteger
fpFieldLookup
fpFieldMultiLine
fpFieldNumber
fpFieldSingleLine 默认
fpFieldTrueFalse
fpFieldURL
fpFieldUser

Required  可选。Boolean 类型。确定域是否为必选域。如果此域必选,则为 True。

应用于 NavigationNodes对象的 Add方法。

将新文件添加到 NavigationNodes集合中的可用项目列表。使用此方法可以在导航结构中添加新文件。有关使用导航节点的详细信息,请参阅 Web对象的RootNavigationNode属性,或 NavigationNode对象的Children属性。

expression.Add(Url, NodeLabel, ModificationType, LeftSibling)

expression  必选。返回 NavigationNodes集合的表达式。

Url  必选,String 类型。包含要用于保存文件的 Web 服务器路径的字符串。该路径可以是任何绝对 URL,例如 http://web server 或 file://file system(对于基于磁盘的站点)。

NodeLabel  必选,String 类型。在“导航”视图中查看导航结构时用来标识 NavigationNode对象的文本字符串。NodeLabel参数仅用于辅助标识。

ModificationType  必选,FpStructModType 常数。节点修正类型。

FpStructModType 可以是下列这些 FpStructModType 常数之一。
fpStructBaseOnSibling 如果要在用左边同级参数指定的节点右边添加新节点,请使用此设置。
fpStructLeftmostChild 当前导航结构中最左边的节点。
fpStructRightmostChild 当前导航结构中最右边的节点。

LeftSibling  可选,Variant 类型。NavigationNodes集合中的索引。它既可以是代表 URL 的字符串,也可以是代表集合中节点的数字。

说明

在 Web 服务器上添加新文件(使用 WebFiles.Add方法)并不表示会自动将文件引入导航结构中。必须单独为该文件创建一个 NavigationNode对象。若要创建新的 NavigationNode对象,请使用 NavigationNodes集合的 Add方法。

注意  使用模板创建新站点时,会自动为用模板添加到站点的文件创建导航节点。

应用于 PageWindows对象的 Add方法。

将新 PageWindowsEx对象添加到PageWindows集合中可用的打开项目列表。

注意  使用 PageWindowEx对象的 Add方法打开新的或现有的文件对象,也会将与该打开文件相关联的 PageWindowEx对象添加到 PageWindows集合中。

expression.Add(FileUrl)

expression  必选。返回 PageWindows集合对象的表达式。

FileUrl  可选,String 类型。包含要用于保存文件的 Web 服务器路径的字符串。该路径可以是任何绝对的文件 URL,例如 http://web server/file 或 file://file system/file(对于基于磁盘的站点)。

说明

若要在 Microsoft FrontPage 的“网页”视图中打开 HTML 网页,可以使用三种方法之一,即 Add、Edit 或 Open方法。如果要在“网页”视图中打开、编辑,然后保存位于文件服务器或硬盘上文件系统中的文件,请使用 PageWindows对象的 Add方法,如下列语句所示。

注意  文件位于何处并不重要;它们可以位于硬盘、服务器或 FrontPage 站点上。


Dim myFile As String
myFile = "C:\Adventure Works HTML Files\Hiking.htm"
ActiveWeb.ActiveWebWindow.PageWindows.Add (myFile)

使用此方法,并没有将文件添加到基于 FrontPage 的站点中,而仅仅是打开了该文件。如果myFile 是站点的一部分,并且该站点当前尚未打开,则 FrontPage 也会打开这个站点。

如果要打开并编辑位于某站点中的 HTML 文件,请使用根文件夹中 Files集合的 Edit方法,如下列语句所示。


ActiveWeb.RootFolder.Files("Hiking.htm").Edit

您可以以同样的方式来使用 Open方式。然而,Open方式应该用于打开非 HTML 文件,例如 Microsoft Word 文档,图像文件等等。

您也可以使用 Add方法来打开新的未保存的 PageWindow对象。您可以使用下列任一语句来打开未保存的网页窗口。


Set myUnsavedPageWindow = ActiveWebWindow.PageWindows.Add()
Set myUnsavedPageWindow = ActiveWebWindow.PageWindows.Add("")

注意  表达式ActiveWebWindow.PageWindows.Add("C:\My Documents\My Webs\index.htm") 可以用作有效的表达式,只要 index.htm 是位于 My Webs 中的基于 FrontPage 的有效文件。然而,如果 index.htm 不在 My Webs 中,则此代码将会失败。若要添加新的网页,必须按照本节前面描述的过程进行操作。

应用于 Properties对象的 Add方法。

将新属性添加到 Properties集合中的可用项目列表。

expression.Add(PropertyKey, PropertyValue)

expression  必选。返回 Properties集合的表达式。

PropertyKey  必选,String 类型。包含所要添加的属性名称的字符串。有关详细信息,请参阅Properties集合主题中的属性表。

PropertyValue  必选,Variant 类型。属性的值。

说明

您可以用编程方式添加和删除 Properties集合的类别以及审批等级。

应用于 WebFiles对象的 Add方法。

将新 WebFile对象添加到 WebFiles集合中的可用项目列表。WebFile对象没有限制,可以是任何类型的文件,而不是限制为 HTML 文件类型——它可以是图像文件、影片或可执行文件。

注意  使用此方法可以向基于 FrontPage 的站点添加新文件。

expression.Add(FileUrl, ForceOverwrite)

expression  必选。返回 WebFiles集合的表达式。

FileUrl  必选,String 类型。包含文件(例如 Inventory. htm)URL 的字符串。该路径可以是任何绝对的文件 URL,例如 http://web server/file 或 file://file system/file(对于基于磁盘的站点)。

ForceOverwrite  可选,Boolean 类型。

说明

通过 WebFiles集合访问单个 WebFile对象可以提供对 WebFile对象的引用,此对象只有在站点文件打开时才可以访问 Page对象模型。一旦文件打开,与该文件关联的 PageWindow对象就能访问与 Microsoft Internet Explorer 4.0 和更高版本兼容的 Page对象模型。有关使用 Web 页中 Page对象模型的进一步信息,请参阅探索 FrontPage 中的对象模型

应用于 WebFolders对象的 Add方法。

将新 WebFolder对象添加到 WebFolders集合中的可用项目列表。

expression.Add(FolderUrl)

expression  必选。返回 WebFolders集合的表达式。

FolderUrl  必选,String 类型。包含文件夹的 URL,例如 C:\My Webs 中的 Images 文件夹。该路径可以是任何绝对的文件夹 URL,例如 http://web server/folder 或 file://file system/folder(对于基于磁盘的站点)。

应用于 WebWindows对象的 Add方法。

将新WebWindowEx对象添加到 WebWindows集合中。

expression.Add(ViewModeEx)

expression  必选。返回 WebWindows集合的表达式。

ViewModeEx  必选。FpWebViewModeEx 枚举常数。代表显示在新窗口中的信息。

FpWebViewModeEx 可以是下列这些 FpWebViewModeEx 常数之一。
fpWebViewExAllFiles
fpWebViewExAssignedTo
fpWebViewExBrokenLinks
fpWebViewExBrowserTypes
fpWebViewExCategories
fpWebViewExCheckoutStatus
fpWebViewExComponentErrors
fpWebViewExDailyPageHits
fpWebViewExDailySummary
fpWebViewExFolders
fpWebViewExLinks
fpWebViewExMonthlyPageHits
fpWebViewExMonthlySummary
fpWebViewExNavigation
fpWebViewExOlderFiles
fpWebViewExOsTypes
fpWebViewExPage
fpWebViewExPublishStatus
fpWebViewExRecentlyAddedFiles
fpWebViewExRecentlyChangedFiles
fpWebViewExReferringDomains
fpWebViewExReferringURLs
fpWebViewExReviewStatus
fpWebViewExSearchStrings
fpWebViewExSiteSummary
fpWebViewExSlowPages
fpWebViewExTodo
fpWebViewExUnlinkedFiles
fpWebViewExUsageSummary
fpWebViewExVisitingUsers
fpWebViewExWeeklyPageHits
fpWebViewExWeeklySummary

应用于 Webs对象的 Add方法。

将新站点添加到 Webs集合中的可用项目列表。

expression.Add(WebUrl, UserName, Password, WebOpenFlags)

expression  必选。返回 Webs集合对象的表达式。

WebUrl  必选,String 类型。包含要用于保存站点的 Web 服务器路径的字符串。该路径可以是任何绝对的站点 URL,例如 http://web server 或 file://file system(对于基于磁盘的站点)。

UserName  可选,String 类型。用户登录到 Web 服务器所用的名称。

Password  可选,String 类型。用户登录到 Web 服务器所用的密码。

WebOpenFlags  可选。FpWebOpenFlags 常数。代表新 Web 的行为。

FpWebOpenFlags 可以是下列这些 FpWebOpenFlags 常数之一。
fpOpenInWindow 默认
fpOpenNoWindow

VBA示例

将该方法应用于 NavigationNodes对象。

此示例将一个称为footnote.htm 的新节点添加到 NavigationNodes集合中的项目列表。

注意  若要运行本示例,必须有一个称为“C:\My Documents\My Webs\Rogue Cellars”(对于在 Microsoft Windows 上运行的服务器)或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars”(对于在 Windows NT 上运行的服务器)的站点以及一个基于 FrontPage 的文件,文件名为 footnote.htm。或者,您也可以用另一个站点 URL 或文件来代替。


Private Sub AddNewNavNode()
Dim myHome As NavigationNode
Dim myNewNode As NavigationNode
Dim myFileUrl As String
myFileUrl = "C:\My Documents\My Webs\Rogue Cellars\footnote.htm"
Set myHome = ActiveWeb.HomeNavigationNode
Set myNewNode = _
    myHome.Children.Add (myFileUrl, _
    "Footnote", fpStructLeftmostChild)
ActiveWeb.ApplyNavigationStructure
End Sub

将该方法应用于 PageWindows对象。

本示例将 Rogue Cellars 酿酒厂的 Inventory 网页添加到 PageWindows集合中的项目列表中。当您使用 FileUrl参数添加网页时,要添加的网页必须以文件形式存在,也就是说,不能使用此参数创建新的网页。若要创建未保存的新网页,请参阅 Add方法中的说明。

注意  若要运行本示例,必须有一个称为“C:\My Documents\My Webs\Rogue Cellars”(对于在 Microsoft Windows 上运行的服务器)或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars”(对于在 Windows NT 上运行的服务器)的站点以及一个文件名为 Inventory.htm 的文件。或者,您也可以用另一个站点 URL 或文件来代替。


Private Sub AddPage()
Dim myPageWindows As PageWindows
Dim myPage As String
Set myPageWindows = ActiveWeb.ActiveWebWindow.PageWindows
myPage = "C:\My Documents\My Webs\Rogue Cellars\Inventory.htm"
myPageWindows.Add (myPage)
End Sub

将该方法应用于 Properties对象。

本示例将新文件添加到 Properties集合中的项目列表。

注意  若要运行本示例,必须有一个称为“C:\My Documents\My Webs\Rogue Cellars\Zinfandel.htm”(对于在 Microsoft Windows 上运行的服务器)或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars\Zinfandel.htm”(对于在 Windows NT 上运行的服务器)的站点以及一个基于 FrontPage 的文件,文件名为 footnote.htm。或者,您也可以用另一个站点 URL 或文件来代替。


Private Sub CopyrightAdd()
Dim myWeb As WebEx
Dim myCopyright As String
Dim myCopyrightProperty As Variant
myCopyright = "Copyright 1999 by Rogue Cellars"
Set myWeb = Webs.Open("C:\My Webs\Rogue Cellers")
myWeb.Activate
ActiveWeb.Properties.Add "Copyright", myCopyright
ActiveWeb.RootFolder.Files("Zinfandel.htm").Open
ActiveDocument.body.insertAdjacentText "BeforeEnd", _
    ActiveWeb.Properties("Copyright")
ActivePageWindow.Save
ActiveWeb.Close
End Sub

将该方法应用于 Webs对象。

本示例将新项目添加到 Webs集合的文件列表。


Webs.Add ("C:\My Documents\My Webs\Rogue Cellars")

将该方法应用于 WebFiles对象。

本示例将新 WebFile对象添加到 Files集合中的项目列表。


ActiveWeb.RootFolder.Files.Add ("C:\New Web Files\Sales Statistics.htm")

将该方法应用于 WebFolders对象。

本示例将文件夹添加到 WebFolders集合中的项目列表。


ActiveWeb.RootFolder.Folders.Add ("Distribution Centers")

上页:FrontPage VBA教程:Activate方法 下页:FrontPage VBA教程:AddChoice方法

FrontPage VBA教程:Add方法

FrontPage VBA教程:AddChoice方法 FrontPage VBA教程:AddLinkBar方法
FrontPage VBA教程:ApplyChanges方法 FrontPage VBA教程:ApplyNavigationStructure方法
FrontPage VBA教程:ApplyTemplate方法 FrontPage VBA教程:ApplyTheme方法
FrontPage VBA教程:CancelRequests方法 FrontPage VBA教程:Checkin方法
FrontPage VBA教程:Checkout方法 FrontPage VBA教程:clear方法
FrontPage VBA教程:Close方法 FrontPage VBA教程:commit方法
FrontPage VBA教程:Copy方法 FrontPage VBA教程:createElement方法
FrontPage VBA教程:createStyleSheet方法 FrontPage VBA教程:createStyleState方法
FrontPage VBA教程:createUndoTransaction方法 FrontPage VBA教程:Delete方法
FrontPage VBA教程:Edit方法 FrontPage VBA教程:elementFromPoint方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号