Visual Basic - Toolbar Dinámica

Life is soft - evento anual de software empresarial
 
Vista:

Toolbar Dinámica

Publicado por Expinete (6 intervenciones) el 17/05/2007 17:51:26
Buenas a tod@s, tengo el siguiente problema, necesito hacer una barra de herramientas que el usuario pueda modificar, es decir, que pueda elegir que opción del menú de la aplicación esté en un botón de la toolbar.

La creación de la toolbar con el icono que el usuario elija ya lo tengo, pero el problema es para que al darle al botón vaya a la opción de menú correspondiente.

Actualmente el código que hay con la barra estática es el siguiente:

if index=1 then
Form1.Show
Form1.ZOrder 0
elseif index=2 then
Form2.show
Form2.ZOrder 0
end if
En cada botón que crea el usuario guardo la posición que tiene en el menú con su indice, el problema es que no se como llamar al procedimiento correspondiente.

Sólo se me ha ocurrido lo siguiente:

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
If Button.Description = "Nivel83" Then
Nivel83_Click (CInt(Button.Tag))
ElseIf Button.Description = "Nivel84" Then
Nivel84_Click (CInt(Button.Tag))
ElseIf Button.Description = "Nivel9" Then
Nivel9_Click (CInt(Button.Tag))
End If
end sub
Donde Button es la variable que tiene toolbar
El problema es que hay un gran número de procedimientos y lo tendria que hacer para varias aplicaciones la solución sería hacer un "simple"

button.description_click(cint(button.tag))
Cosa que no he logrado...

Bueno si alguien sabe como podria hacerse le estaría muy agradecido
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder