El control controles comunes de Windows-3 6.0 en VB también se utiliza para configurar la barra de herramientas.

Agregar botones mediante programación

En el procedimiento, cree botones de la barra de herramientas agregándolos a la colección System.Windows.Forms.ToolBar.Buttons.

Especifique la configuración de propiedades de un botón individual pasando el índice del botón a través de la propiedad Botones.

El siguiente ejemplo asume un formulario al que se le ha agregado un control ToolBar.

Nota

La colección System.Windows.Forms.ToolBar.Buttons es una colección de base cero, por lo que el código debe escribirse con valores iniciales adecuados.

Copiar código de Visual Basic

Public Sub CreateToolBarButtons()

' Crea botones y establece propiedades de texto.

ToolBar1.Buttons.Add ("Uno")

ToolBar1.Buttons.Add("Dos")

ToolBar1.Buttons.Add("Tres")

ToolBar1.Buttons. Add("Four")

' Establecer propiedades de los paneles StatusBar.

' Establecer propiedad Estilo.

ToolBar1.Buttons(0).Style = ToolBarButtonStyle. PushButton

ToolBar1.Buttons(1).Style = ToolBarButtonStyle.Separator

ToolBar1.Buttons(2).Style = ToolBarButtonStyle.ToggleButton

ToolBar1.Buttons( 3).Style = ToolBarButtonStyle.DropDownButton

' Establece la propiedad PartialPush del ToggleButton.

ToolBar1.Buttons(2).PartialPush = True

' Crea una instancia de un ContextMenu componentes y elementos de menú.

' Establece la propiedad DropDownMenu del DropDownButton en el menú contextual.

Atenuar cm como nuevo ContextMenu()

Atenuar miOne como nuevo elemento de menú( "Uno")

Atenuar miTwo como nuevo elemento de menú("Dos")

Atenuar miTres como nuevo elemento de menú("Tres")

cm.MenuItems.Add (miOne)

cm.MenuItems.Add(miTwo)

cm.MenuItems.Add(miThree)

ToolBar1.Buttons(3).DropDownMenu = cm

' Establece la propiedad Pushed del PushButton.

ToolBar1.Buttons(0).Pushed = True

' Establece la propiedad ToolTipText de uno de los botones.

ToolBar1.Buttons(1).ToolTipText = "Botón 2"

Fin Sub