FoxPro/Visual FoxPro - Agregar metodo click a un boton desde una funcion

   
Vista:

Agregar metodo click a un boton desde una funcion

Publicado por Lucas Garcia (2 intervenciones) el 22/03/2009 22:51:49
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE: Agregar metodo click a un boton desde una func

Publicado por angel ricardo piedrabuena (88 intervenciones) el 23/03/2009 03:13:32
PROCEDURE Click
Colocar aqui los comandos a ejecutar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE: Agregar metodo click a un boton desde una func

Publicado por Lucas Garcia (2 intervenciones) el 23/03/2009 19:19:49
Hola Angel

Lo puse entre los dos Endwith, sobre el primer Endwith, debajo de los dos Endwith, y me da error al ejecutar por type/mismatch con los With.

Que podria hacer?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE: Agregar metodo click a un boton desde una func

Publicado por angel ricardo Piedrabuena (88 intervenciones) el 25/03/2009 03:22:46
Intentá definiendo el boton como una clase en vez de hacerlo con WITH ( Es una sugerencia. Yo no probé si funciona )

DEFINE CLASS cmdMiBoton AS CommandButton && Se crea el botón
Caption = nombre
Top = gnPosiciony
Left = 10
Height = 27
PROCEDURE Click
Acá vá el procedimiento
ENDDEFINE

Saludos cordiales
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar