Metodo Commands2.AddCommandBar (String, vsCommandBarType, Object, Int32)
Crea una barra di comando che viene salvata e disponibile la volta successiva che l'ambiente viene avviato.
Spazio dei nomi: EnvDTE80
Assembly: EnvDTE80 (in EnvDTE80.dll)
Sintassi
'Dichiarazione
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
Parametri
- Name
Tipo: System.String
obbligatorio.Un nome per la nuova barra dei comandi.
- Type
Tipo: EnvDTE.vsCommandBarType
obbligatorio.In vsCommandBarType costante che determina il tipo di barra dei comandi:
- CommandBarParent
Tipo: System.Object
facoltativo.In CommandBar oggetto a cui la nuova barra dei comandi necessario aggiungere.(Questo è obbligatorio, tuttavia, si Type viene vsCommandBarTypeMenu).
- Position
Tipo: System.Int32
facoltativo.La posizione di indice, a partire da una, nella barra dei comandi per inserire la nuova barra dei comandi.
Valore restituito
Tipo: System.Object
In CommandBar oggetto.
Note
La nuova barra dei comandi è disponibile durante ogni nuova sessione dell'ambiente indipendentemente dal fatto che il componente aggiuntivo viene caricato.
Esempi
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
Sicurezza di .NET Framework
- Attendibilità totale per il chiamante immediato. Impossibile utilizzare questo membro in codice parzialmente attendibile. Per ulteriori informazioni, vedere Utilizzo di librerie da codice parzialmente attendibile.