Hola amigos.
Ante todo un saludo ya que es mi primer mensaje en el grupo. Estoy
migrando una aplicacion de la empresa que esta hecha en Fox 2.6 para
DOS a Visual FoxPro9. Tengo un problema que quizas es un poco tonto
pero que no encuentro solucion ya que me estoy familiarizando con la
plataforma.
Tengo que crear una funcion que genere unos botones, de modo que la
persona que vaya a usar esta funcion, unicamente ponga en el codigo
Boton("Hola","Funcion a ejecutar") y este comando lo que haga es crear
un boton con el Caption "Hola" y cuando le des click ejecute la
funcion que desea (previamente declarada en alguna parte del codigo).
Hasta ahora me funciona bien para dibujar los botones, pero no puedo
crearle el metodo Click a los botones, me genera cantidad de errores
usando distintos comandos como BindEvent, Define Click, etc. No se si
alguien puede instruirme un poco a ver como es la mejor forma de
generar esto. Aqui le senvio mi codigo.
Public oHandler
* Variables Globales
PUBLIC gnPosicionx,gnPosiciony,gnContador,gcNombreboton
gnContador = 9
gnPosicionx = 10
gnPosiciony = 0
Set Talk Off
DO FORM home.scx
Boton("Hola")
Boton("Chao")
Set Talk On
RETURN
FUNCTION Boton (nombre)
gnContador = gnContador+1
gcNombreboton = "boton" + TRIM(STR(gnContador,2))
gnPosiciony = gnPosiciony + 30
With home
.AddObject ('boton', 'commandbutton')
With .boton
.Caption = nombre
.Top = gnPosiciony
.Left = 10
.Height = 27
.Name = gcNombreboton
.Visible = .T.
Endwith
Endwith
RETURN
