ProjectType 屬性

全部顯示

使用 ProjectType 屬性可以確定當(dāng)前通過 CurrentProject 或 CodeProject 對(duì)象打開的項(xiàng)目的類型。AcProjectType，只讀。

expression.ProjectType

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

說明

UseLongFileNames 屬性僅在使用 Visual Basic 時(shí)才可用。

示例

下面的示例將顯示一條消息，詳細(xì)說明當(dāng)前打開的項(xiàng)目的類型。

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