Commands2.AddCommandBar, méthode (String, vsCommandBarType, Object, Int32)
Crée une barre de commandes qui est enregistrée et qui sera disponible au prochain démarrage de l'environnement.
Espace de noms : EnvDTE80
Assembly : EnvDTE80 (dans EnvDTE80.dll)
Syntaxe
'Déclaration
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
Paramètres
- Name
Type : System.String
Obligatoire.Nom de la nouvelle barre de commandes.
- Type
Type : EnvDTE.vsCommandBarType
Obligatoire.Constante vsCommandBarType qui détermine le type de la barre de commandes :
- CommandBarParent
Type : System.Object
Facultatif.Objet CommandBar auquel la nouvelle barre de commandes doit être ajoutée.(Ce paramètre est toutefois requis si Type est vsCommandBarTypeMenu.)
- Position
Type : System.Int32
Facultatif.Position d'index (à partir de 1) où placer la nouvelle barre de commandes dans la barre de commandes.
Valeur de retour
Type : System.Object
Objet CommandBar.
Notes
La nouvelle barre de commandes est disponible à chaque nouvelle session de l'environnement, que le complément soit chargé ou non.
Exemples
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
Sécurité .NET Framework
- Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, consultez Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.