Variables en Barras de herramientas VB6

[Panxo]

Hola a todos, soy nuevo en el foro asi q un saludo para todos

Bueno espero que puedan resolverme esta duda q esta volviendome loco.

Tengo un problema a la hora de utilizar la barra de herramientas en visual basic 6.

Concretamente mi problema es:

Quiero que al pinchar sobre cada boton de la barra de herramientas una variable tome un valor diferente, para luego utilizarla para realizar unos cálculos.

Pero resulta que cuando me refiero a esa variable ( la de la barra de htas ) desde un procediemiento no toma ningun valor.

pongo un ejemplo del codigo q uso:

Option explicit

Dim VARIABLE as Single
Dim SUMA as Single

Public Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "boton1"
VARIABLE = 2

Select Case Button.Key
Case "otroboton"
VARIABLE = 4

Public Sub Procedimiento()
SUMA = ( VARIABLE * 2 )
text1.text=SUMA

cmdResultado
Call Procedimiento

Bueno basicamente es este el código,

1- declaro variables
2- en la barra de herramientas digo q al pinchar un boton la variable(VARIABLE) tome un valor u otro
3- creo un procedimiento para calcular y mostrar el resultado en un texbox
4- un boton q al darle llama al procedimiento y calcula y muestra el resultado en el texbox

El problema es q sale cero, la VARIABLE no toma ningún valor.

Bueno gracias por anticipado por la ayuda, un saludo

[ReViJa]

Has mirado que valor toma Button.Key

[paloto]

Comprueba los Keys de los botones de la barra de herramientas.

Saludos

[Panxo]

Muchas gracias por las respuestas.

os comento:

Si pongo comillas simples(') me da error de compilación:se esperaba expresion.

y si ejecuto el programa de todas formas me da error de sintaxis

En cuanto a los keys de la barra de htas estan bien puestos.

En cuanto a lo que si he mirado que valor toma Button.key, no se a lo que te refieres exactamente, si puedes explicarme a que te refieres t lo agradeceria mucho.

un saludo

[zeroyevi]

bueno primero tienes que tener un imagenlist y un Toolbar1

teniendo ello configurando algunos botones para llamar tus form es simple


'-----------------------------------------------------------------------------------
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Form1.Show
Case 2
Form2.Show
Case 3

Case 4


End Select
End Sub

'------------------------------------------------------------------
espero que te funcione

[David]

Se agradece tu deseo de ayudar zeroyevi, pero si te fijas el tema es de hace 1 año, así que es probable que el usuario haya solucionado su problema.

Favor no revivir temas viejos.
Véase: http://www.forosdelweb.com/f40/polit...el-web-101485/

Gracias.