Aug 22
En este truco veremos como podemos agregar un botón en el Screen de VFP y darle funcionalidad utilizando el BindEvents
Public oHnd
oHnd = Newobject("MiClick")
With _Screen
.AddObject("CmdBoton",
"CommandButton")
Bindevent(_Screen.CmdBoton,"Click",oHnd,"ReClick")
With
.CmdBoton
.Caption
=
"Botón"
.Top
= 10
.Left
= 10
.Height
= 27
.Visible
= .T.
Endwith
Return
Endwith
Define Class MiClick
As Session
Procedure ReClick
Messagebox("Hola
a todos")
Return
EndDefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
