FoxPro/Visual FoxPro - contar numero de clics

Nada pues una duda mas que todo, estoy haciendo un programa que llamo desde un main.prg

en el archivo funcion.prg tengo una funcioncita que se llama cuando se le da clic a un boton del formulario y lo unico que hace es sumarle 1 a la variable contador.

Ahora mi duda es a donde diablos declaro la variable contador?

la defini en funcion.prg antes de la funcion contadora y me daba error


Luego la quise definir en el formulario y lo mismo, no se a donde ponerla, esa es mi duda nada mas.

Crea una propiedad del form (manualmente en el diseñador o con Addproperty(thisform,"Contador",0)

En el evento click del botón que necesitas;
thisform.Contador = thisform.Contador + 1

Eso es todo.
Si quieres que cuente de todos los botones del form, también se puede, pero es un poco más complicado.

Hey muchas gracias, eso me funciono de toque pero la sintaxis que use es:


En el evento Load y va de toque.

Muchas gracias Fidel José.

PD: se me olvido decir que trabajo en Visual FoxPro 7

Aunque para el caso no vale la pena, te comento algo sobre tu función "Contadora".

Lo que escribes es
contador = 0 && esto no pertenece a ningún procedure or Function
FUNCTION contadora()
contador = contador + 1 && esto da error porque "Contador" no está definido
RETURN contador
ENDFUNC

Cuando podría haber sido:

PROCEDURE Contadora
LPARAMETERS tnCuenta
REturn EVL(tnCuenta,0) + 1
ENDPROC

o la versión en Function
FUNCTION Contadora(tnCuenta)
return EVL(tnCuenta,0) + 1
ENDFUNC

O sea, necesitarás un parámetro de entrada para capturar el valor actual que se incrementa.
Por otra parte, no debe haber definiciones de variables fuera de FUNCTION / ENDFUNC o PROCEDURE / ENDPROC


En este caso no vale la pena porque de todos modos tenés que crear la propiedad en el form para retener el valor y la función es elemental.
Thisform.Addproperty("Cuenta",0)
Thisform.Cuenta=Contadora(thisform.cuenta) && igual que THISFORM.CUENTA=THISFORM.CUENTA+1

Sin embargo, encontrarás casos más complejos en los que sí se necesita una función o Procedure y el criterio es similar.