Metodo Commands2.AddCommandBar (String, vsCommandBarType, Object, Int32)
Crea una barra dei comandi che viene salvata e resa disponibile al successivo avvio dell'ambiente.
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.Nome per la nuova barra dei comandi.
- Type
Tipo: EnvDTE.vsCommandBarType
Obbligatorio.Costante vsCommandBarType che determina il tipo di barra dei comandi:
- CommandBarParent
Tipo: System.Object
Facoltativa.Oggetto CommandBar al quale deve essere aggiunta la nuova barra dei comandi.È obbligatorio, tuttavia, se Type è vsCommandBarTypeMenu.
- Position
Tipo: System.Int32
Facoltativo.La posizione dell'indice, a partire da 1, nella barra dei comandi in cui deve essere posizionata la nuova barra dei comandi.
Valore restituito
Tipo: System.Object
Un oggetto CommandBar.
Implementa
Commands.AddCommandBar(String, vsCommandBarType, Object, Int32)
Note
La nuova barra dei comandi è disponibile durante ogni nuova sessione dell'ambiente, indipendentemente dal caricamento del componente aggiuntivo.
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.