En este grupo En todos

Foro de Lenguaje basic



Toolbar dinámica

Escrito por Chema
el 17/05/2007
Antes que nada buenas tardes, 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 hacer 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)) 

En fin si puedes ayudarme te estaría muy agradecido.