全部显示

使用 ProjectType 属性可以确定当前通过 CurrentProject 或 CodeProject 对象打开的项目的类型。AcProjectType，只读。

expression.ProjectType

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

UseLongFileNames 属性仅在使用 Visual Basic 时才可用。

示例

下面的示例将显示一条消息，详细说明当前打开的项目的类型。

Dim intProjType As Integer

intProjType = Application.CurrentProject.ProjectType

Select Case intProjType

    Case 0 ' acNull

        MsgBox "ProjectType is acNull"

    Case 1 ' acADP

        MsgBox "ProjectType is acADP"

    Case 2 ' acMDB

        MsgBox "ProjectType is acMDB"

    Case Else

    MsgBox "Can't determine ProjectType"

End Select