Répondre

7

Découvrez tutoriel sur MZ-Tools.

bouton dans la barre d'outils "Standard"

commandBars = DirectCast(<dte instance>.CommandBars, CommandBars) 
standardCommandBar = commandBars.Item(VS_STANDARD_COMMANDBAR_NAME) 

' Add a button to the built-in "Standard" toolbar 
myStandardCommandBarButton = DirectCast(myCommand.AddControl(standardCommandBar, _ 
standardCommandBar.Controls.Count + 1), CommandBarButton) 

' Change some button properties 
myStandardCommandBarButton.Caption = MY_COMMAND_CAPTION 
myStandardCommandBarButton.Style = MsoButtonStyle.msoButtonIcon ' It could be also  msoButtonIconAndCaption 
myStandardCommandBarButton.BeginGroup = True ' Separator line above button 

Nouvelle barre d'outils

 commandBars = DirectCast(<dte instance>.CommandBars, CommandBars) 

    ' Add a new toolbar 
    myTemporaryToolbar = commandBars.Add(MY_TEMPORARY_TOOLBAR_CAPTION, _ 
     MsoBarPosition.msoBarTop, System.Type.Missing, True) 

    ' Add a new button on that toolbar 
    myToolBarButton = DirectCast(myCommand.AddControl(myTemporaryToolbar, _ 
     myTemporaryToolbar.Controls.Count + 1), CommandBarButton) 

    ' Change some button properties 
    myToolBarButton.Caption = MY_COMMAND_CAPTION 
    myToolBarButton.Style = MsoButtonStyle.msoButtonIconAndCaption ' It could be also msoButtonIcon 

    ' Make visible the toolbar 
    myTemporaryToolbar.Visible = True 
Questions connexes