Cuenta Progresiva con CommandButton?

[electrodev]

Hola, gente como no dándoles la lata.En este caso no se como hacer una cuenta progresiva (Cuando Presione el Button aumente en 1), he visto en internet que lo hacen con un timer pero como dije quiero que aumente en 1 al pulsar el botón.

Un Gran Saludo y gracias de antemano

[MCKSys Argentina]

Si te refieres a que el Caption del boton aumente en 1 cada vez que le haces click, prueba lo siguiente:

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
    Command1.Caption = Cstr(Val(Command1.caption) + 1)
End Sub


Por supuesto, el caption del boton debería ser 0 o cualquier otro valor numerico.

El Cstr no es necesario 100% (sin él funciona igual) pero, bueno, es para darte una  idea...

Saludos!

[electrodev]

Mil gracias MCKSys funciona 100%

Un Saludo