通过

Application.IsCommandEnabled 方法 (Project)

  • 项目

显示是否启用指定的命令。

语法

expression。 IsCommandEnabled( _CommandName_ )

表达 返回 Application 对象的表达式。

参数

名称 必需/可选 数据类型 说明
CommandName 必需 String 有效命令的名称。

返回值

Long

备注

有效命令将 VBA MSProject 库中的方法名称。 返回值可以是 PjIsCommandEnabled 常量之一。

示例

工作组规划器视图不可见时，该 TestCommandEnabled 宏将返回下面的结果:

该 枚举 方法是在大多数情况下可用。 IsCommandEnabled 方法未定义，因为它不包含方法的内部列表中。 ResetTPStyle 方法被禁用，因为它时才可用工作组规划器视图处于打开状态。

Sub TestCommandEnabled() 
 Dim commandArray(3) As String 
 Dim isEnabled As String 
 Dim i As Integer 
 
 commandArray(1) = "FileOpen" 
 commandArray(2) = "IsCommandEnabled" 
 commandArray(3) = "ResetTPStyle" 
 
 For i = 1 To 3 
 isEnabled = GetCommandEnabled(commandArray(i)) 
 Debug.Print commandArray(i) & " is " & isEnabled 
 Next i 
End Sub 
 
Function GetCommandEnabled(command As String) As String 
 Dim isEnabled As Long 
 Dim enabledMsg As String 
 Dim result As String 
 
 isEnabled = Application.IsCommandEnabled(command) 
 
 Select Case isEnabled 
 Case PjIsCommandEnabled.pjCommandDisabled 
 result = "disabled." 
 Case PjIsCommandEnabled.pjCommandEnabled 
 result = "enabled." 
 Case PjIsCommandEnabled.pjCommandUndefined 
 result = "undefined." 
 Case Else 
 result = "unknown result." 
 End Select 
 
 GetCommandEnabled = result 
End Function

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。