Command - интерфейс
Представляет команду среды.
Пространство имен: EnvDTE
Сборка: EnvDTE (в EnvDTE.dll)
Синтаксис
'Декларация
<GuidAttribute("5FE10FB0-91A1-4E55-BAAA-ECCAE5CCEB94")> _
Public Interface Command
[GuidAttribute("5FE10FB0-91A1-4E55-BAAA-ECCAE5CCEB94")]
public interface Command
[GuidAttribute(L"5FE10FB0-91A1-4E55-BAAA-ECCAE5CCEB94")]
public interface class Command
[<GuidAttribute("5FE10FB0-91A1-4E55-BAAA-ECCAE5CCEB94")>]
type Command = interface end
public interface Command
Тип Command предоставляет следующие члены.
Свойства
Имя | Описание | |
---|---|---|
Bindings | Задает или получает список нажатых для вызова команды клавиш. | |
Collection | Получает коллекцию Commands, содержащую объект Command. | |
DTE | Возвращает объект расширения верхнего уровня. | |
Guid | Получает идентификатор GUID для данного объекта. | |
ID | Получает идентификатор из GUID группы команд, используемый для представления команды. | |
IsAvailable | Получает значение, указывающее, включена ли в текущий момент команда Command. | |
LocalizedName | Получает локализованное имя команды. | |
Name | Получает имя объекта. |
В начало страницы
Методы
Имя | Описание | |
---|---|---|
AddControl | Создает для команды постоянный элемент управления на панели команд. | |
Delete | Удаляет именованную команду, созданную с помощью метода AddNamedCommand. |
В начало страницы
Заметки
Для ссылки на этот объект используется Item.
На этот объект можно сослаться несколькими способами, например, с помощью канонического имени или идентификатора GUID. Самый простой способ вызова большинства команд — использовать ExecuteCommand. Для редких экземпляров, когда необходимо вызвать команду без имени, используйте Raise.
Примеры
' Macro code.
Sub CommandExample()
' Creates a text document listing all command names.
Dim Cmd As Command
Dim Doc As Document
Dim TxtDoc As TextDocument
' Create a new text document.
DTE.ItemOperations.NewFile ("General\Text File")
Set Doc = ActiveDocument
Set TxtDoc = Doc.Object("TextDocument")
For Each Cmd In Commands
If (Cmd.Name <> "") Then
TxtDoc.Selection.Text = Cmd.Name & vbLF
TxtDoc.Selection.Collapse
End If
Next
End Sub