Command.AddControl - метод

Статья
11/05/2008

Обновлен: Ноябрь 2007

Создает для команды постоянный элемент управления панели команд.

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

Синтаксис

'Декларация
Function AddControl ( _
    Owner As Object, _
    Position As Integer _
) As CommandBarControl
'Применение
Dim instance As Command
Dim Owner As Object
Dim Position As Integer
Dim returnValue As CommandBarControl

returnValue = instance.AddControl(Owner, _
    Position)

CommandBarControl AddControl(
    Object Owner,
    int Position
)

CommandBarControl^ AddControl(
    [InAttribute] Object^ Owner, 
    [InAttribute] int Position
)

function AddControl(
    Owner : Object, 
    Position : int
) : CommandBarControl

Параметры

Owner
Тип: System.Object
Обязательный. Объект Microsoft.VisualStudio.CommandBars.CommandBar, к которому должна быть добавлена новая панель команд.

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

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

Тип: Microsoft.Office.Core.CommandBarControl
Объект Microsoft.VisualStudio.CommandBars.CommandBarControl.

Заметки

Среда сохраняет элемент управления и его расположение, делая его доступным по командному идентификатору ContextUIGUIDs или по его ответу на метод QueryStatus Method в течение каждого нового сеанса вне зависимости от того, загружена ли надстройка.

Примеры

' Macro code.
Imports Microsoft.Office.Core
Sub AddControlExample()
   ' Before running, you must add a reference to
   ' Microsoft.VisualStudio.CommandBars. 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.AddControl(cmdbarobj)
   cmds.AddNamedCommand(colAddins.Item(1), "MyCommand", "Button Text", "Some tooltip", True)
End Sub

Разрешения

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

См. также

Ссылки

Command Интерфейс

Command - члены

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

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