Grupos en barras de herramientas

hola, Roberto !

Se pueden crear barras de menus en formularios?
O sea que si oculto la aplicacion y muestro solo un formulario
puede este ultimo tener barras de menus?

1) es posible si le incrustas al formulario un control 'ToolBar ActiveX Control' de la libreria:
-> Microsoft Windows Common Controls x.x (SPx)
donde las 'x' se refieren al numero de la version instalada del control...
-> C:\Windows\System[32]\MSComCtl.ocx
2) el control deberas agregarlo PRIMERO a la barra de controles del editor de vba [el de los formularios]
y despues lo podras incrustar en el formulario <= OJO
3) aunque no es de consultas 'frecuentes' tu peticion, te paso un ejemplo al final ;)
=> observa con cuidado el orden y tipo de controles que se agregan y 'administran' en el codigo

si cualquier duda... comentas ?
saludos,
hector.

en el modulo de codigo del formulario donde incrustas un control ToolBar1 ==Private Sub UserForm_Initialize()
With Toolbar1
With .Buttons.Add(, , "Menu 1", tbrDropdown)
.TooltipText = "Indicaciones 1..."
.ButtonMenus.Add , , "Comando 1"
.ButtonMenus.Add , , "Comando 2"
End With
.Buttons.Add , , , tbrSeparator
With .Buttons.Add(, , "Menu 2", tbrDropdown)
.TooltipText = "Indicaciones 2..."
.ButtonMenus.Add 1, , "Comando 1"
End With
With .Buttons.Add(, , "Menu 3")
.TooltipText = "Indicaciones 3..."
End With
End With
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1: MsgBox "Accionando el menu 1..."
Case 3: MsgBox "Accionando el menu 2..."
Case 4: MsgBox "Accionando el menu 3..."
End Select
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Parent.Index
Case 1
Select Case ButtonMenu.Index
Case 1: MsgBox "Accionando el comando 1 del menu 1..."
Case 2: MsgBox "Accionando el comando 2 del menu 1..."
End Select
Case 3
Select Case ButtonMenu.Index
Case 1: MsgBox "Accionando el comando 1 del menu 2..."
End Select
Case 4
End Select
End Sub

informacion de referencia INICIAL en [traduccion automatica] :D
Como realizar Interfaz Coolbar utilizando controles de barra de herramientas ActiveX
http://support.microsoft.com/kb/q192075

Wow...
Por algo eres lo que eres.
Muchas gracias, nuevamente me has ayudado bastante.

"Héctor Miguel" escribió en el mensaje
news:%

hola, Roberto !

Se pueden crear barras de menus en formularios?
O sea que si oculto la aplicacion y muestro solo un formulario
puede este ultimo tener barras de menus?

1) es posible si le incrustas al formulario un control 'ToolBar ActiveX
Control' de la libreria:
-> Microsoft Windows Common Controls x.x (SPx)
donde las 'x' se refieren al numero de la version instalada del
control...
-> C:\Windows\System[32]\MSComCtl.ocx
2) el control deberas agregarlo PRIMERO a la barra de controles del editor
de vba [el de los formularios]
y despues lo podras incrustar en el formulario <= OJO
3) aunque no es de consultas 'frecuentes' tu peticion, te paso un ejemplo
al final ;)
=> observa con cuidado el orden y tipo de controles que se agregan y
'administran' en el codigo

si cualquier duda... comentas ?
saludos,
hector.

en el modulo de codigo del formulario donde incrustas un control
ToolBar1 ==> Private Sub UserForm_Initialize()
With Toolbar1
With .Buttons.Add(, , "Menu 1", tbrDropdown)
.TooltipText = "Indicaciones 1..."
.ButtonMenus.Add , , "Comando 1"
.ButtonMenus.Add , , "Comando 2"
End With
.Buttons.Add , , , tbrSeparator
With .Buttons.Add(, , "Menu 2", tbrDropdown)
.TooltipText = "Indicaciones 2..."
.ButtonMenus.Add 1, , "Comando 1"
End With
With .Buttons.Add(, , "Menu 3")
.TooltipText = "Indicaciones 3..."
End With
End With
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1: MsgBox "Accionando el menu 1..."
Case 3: MsgBox "Accionando el menu 2..."
Case 4: MsgBox "Accionando el menu 3..."
End Select
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As
MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Parent.Index
Case 1
Select Case ButtonMenu.Index
Case 1: MsgBox "Accionando el comando 1 del menu 1..."
Case 2: MsgBox "Accionando el comando 2 del menu 1..."
End Select
Case 3
Select Case ButtonMenu.Index
Case 1: MsgBox "Accionando el comando 1 del menu 2..."
End Select
Case 4
End Select
End Sub

informacion de referencia INICIAL en [traduccion automatica] :D
Como realizar Interfaz Coolbar utilizando controles de barra de
herramientas ActiveX
http://support.microsoft.com/kb/q192075