FoxPro/Visual FoxPro - EVENTOS A OBJETO

 
Vista:

EVENTOS A OBJETO

Publicado por Alejandro Arias (84 intervenciones) el 06/06/2002 16:41:28
Hola amigos del foro,

Quiero que me colaboren con lo siguiente:

he creado por codigo botones y quiero que a su vez cuando le de click a cada uno de ellos me haga un procedimiento especifico, como hago

para lograr esto?, este es el codigo:

THISFORM.ADDOBJECT(obj,'container')
WITH
.HEIGHT =10
.WIDTH=10
.VISIBLE=.T.
.TOP=15
.LEFT=15
.BACKCOLOR=RGB(255,0,0)
ENDWITH

Muchas gracias por su colaboración.

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:EVENTOS A OBJETO

Publicado por Devilzito (24 intervenciones) el 10/06/2002 17:45:01
Primero debes definir la clase. Por ejemplo un botón:

DEFINE Class ExitButton AS CommandButton
Visible = .T.
Height = 60
Width = 60
Caption = "Salir"
Top = _Screen.Height - 90
Left = _Screen.Width - 90
tooltiptext="Cierra la aplicación"
PROCEDURE Click
*Aquí pones el código a ejecutar cuando se da un clic
endproc
ENDDEFINE

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:EVENTOS A OBJETO

Publicado por Devilzito (24 intervenciones) el 10/06/2002 17:45:11
Primero debes definir la clase. Por ejemplo un botón:

DEFINE Class ExitButton AS CommandButton
Visible = .T.
Height = 60
Width = 60
Caption = "Salir"
Top = _Screen.Height - 90
Left = _Screen.Width - 90
tooltiptext="Cierra la aplicación"
PROCEDURE Click
*Aquí pones el código a ejecutar cuando se da un clic
endproc
ENDDEFINE

--devilzito--
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