10
« en: Martes 28 de Abril de 2009, 01:38 »
Hola!!! no te será mas sencillo creando una clase propia?
Hace lo siguiente:
pega un boton en un formulario cualquiera, dale el tamaño, el tipo de letra, colores, etc que quieras que tenga. Después ingresa el siguiente código
En el evento Init:
parameters nombre,funcion // nombre: es el caption que va a tomar el boton y funcion es la funcion que se va a ejecutar al darle un click
this.caption=nombre
this.AddProperty("faLlamar",funcion) // agrega una nueva propiedad al boton que va a contener la funcion a llamar
En el evento Click:
local xfunc
xfunc=this.faLlamar
&xfunc
bueno, hasta ahora no es mas que un simple boton. Para guardarlo como una clase, dale un click al boton y despues seleccioná en el menú de visual fox
Archivo
Guardar como Clase
ahi se te abre una ventana donde le tenés que indicar:
en el campo Nombre el nombre que va a tener la clase ej: MiBoton
y en Archivo tenes que indicarle el contenedor de clases (lo tenés que haber creado antes desde la oreja Clases del proyecto)
y listo!!! tenes la clase creada.
al crear el boton tenés que ingresar:
thisform.addobject("elBoton","MiBoton","Caption","Funcion")
donde "elBoton" va a ser el nombre del objeto de clase "MiBoton" y se va a inicializar con los parametros "Caption" y "Funcion".
espero que te sea util
Suerte