Application 对象

Application 多个对象

代表 Microsoft FrontPage 应用程序。Application 对象包含可以返回顶层对象的属性和方法。例如，ActiveDocument 属性返回文档对象，它所引用的 FrontPage Page 对象模型与 Microsoft Internet Explorer 4.0 及其更高版本兼容。

使用 Application 对象

使用 Application 属性可以返回 Application 对象。您可以使用 FrontPage 中任何对象的 Application 属性。下列示例通过活动 WebEx 对象检查当前用户的登录，并设置相应的安全性设置。该示例假设已经存在一个名为 CheckUserName 的过程。

Private Sub GetLogonName()
    Dim myWeb As WebEx
    Dim currLogonName As String
    Dim userSecurityLevel As Integer

    Set myWeb = ActiveWeb
    CurrentLogonName = myWeb.Application.UserName

    If CurrentLogonName = “Guest” then
        userSecurityLevel = 10
    Else
        Call CheckUserName(currLogonName)
    End If
End Sub

许多属性和方法都可以返回最常用的用户界面对象，例如 ActiveDocument 属性，这些属性和方法使用时可以不加 Application 对象识别符。例如，您可以不用 Application.ActiveDocument.Title，而使用 ActiveDocument.Title。使用时可以不加 Application 对象识别符的属性和方法视为“全局”。若要在对象浏览器中查看全局属性和方法，请单击对象浏览器“类”框中的列表顶部的 <全局>。

说明

若要从另一个应用程序使用 Automation 来控制 FrontPage，请使用 CreateObject 或 GetObject 函数来返回 FrontPage Application 对象。下列的 Microsoft Word Visual Basic for Applications 示例启动 FrontPage，打开现有的站点，然后关闭该站点。

Private Sub StartFrontPage()
    Dim myNewFP As Variant

    Set myNewFP = CreateObject("FrontPage.Application")
    myNewFP.Webs.Open ("C:\MyWebs\Adventure Works")
    myNewFP.Webs.Close "(C:\MyWebs\Adventure Works")
    Set myNewFP = Nothing
End Sub