Commands2.AddCommandBar - метод

Статья
05/17/2015

Создает панель команд, которая сохраняется и становится доступна при следующем запуске среды.

Пространство имен: EnvDTE80
Сборка: EnvDTE80 (в EnvDTE80.dll)

Синтаксис

'Декларация
Function AddCommandBar ( _
    Name As String, _
    Type As vsCommandBarType, _
    CommandBarParent As Object, _
    Position As Integer _
) As Object

Object AddCommandBar(
    string Name,
    vsCommandBarType Type,
    Object CommandBarParent,
    int Position
)

Object^ AddCommandBar(
    [InAttribute] String^ Name, 
    [InAttribute] vsCommandBarType Type, 
    [InAttribute] Object^ CommandBarParent, 
    [InAttribute] int Position
)

abstract AddCommandBar : 
        Name:string * 
        Type:vsCommandBarType * 
        CommandBarParent:Object * 
        Position:int -> Object

function AddCommandBar(
    Name : String, 
    Type : vsCommandBarType, 
    CommandBarParent : Object, 
    Position : int
) : Object

Параметры

Name
Тип: String

Обязательный. Имя для новой панели команд.

Type
Тип: vsCommandBarType

Обязательный. Константа из перечисления vsCommandBarType, определяющая тип панели команд.

CommandBarParent
Тип: Object

Необязательный. Объект CommandBar, к которому добавляется новая панель команд. (Впрочем, этот параметр обязателен, если параметр Type имеет значение vsCommandBarTypeMenu.).

Position
Тип: Int32

Необязательный. Индекс позиции, начиная с единицы, в панели команд, с которой будет размещена новая панель команд.

Возвращаемое значение

Тип: Object
Объект CommandBar.

Заметки

Новая панель команд доступна каждую новую сессию среды, независимо от того, загружена ли надстройка.

Примеры

Imports Microsoft.VisualStudio.CommandBars
Sub AddCommandBarExample()
   ' Before running, you must add a reference to the Office 
   ' typelib to gain access to the CommandBar object. Also, for this 
   ' example to work correctly, there should be an add-in available 
   ' in the Visual Studio environment.
   Dim cmds As Commands
   Dim cmdobj As Command
   Dim customin, customout As Object
   Dim cmdbarobj As CommandBar
   Dim colAddins As AddIns

   ' Set references.
   colAddins = DTE.AddIns()
   cmds = DTE.Commands
   cmdobj = cmds.Item("File.NewFile")

   ' Create a toolbar and add the File.NewFile command to it.
   cmdbarobj = cmds.AddCommandBar("Mycmdbar", vsCommandBarType.vsCommandBarTypeToolbar)
   MsgBox("Commandbar name: " & cmdbarobj.Name)
   cmdobj = cmds.AddNamedCommand(colAddins.Item(1), "mycommand", "mycommand", "tooltip for mycommand", True)
End Sub

Безопасность платформы .NET Framework

Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Для получения дополнительной информации см. Использование библиотек из не вполне надежного кода.

См. также

Ссылки

Commands2 Интерфейс

EnvDTE80 - пространство имен

Поделиться через