Inicio > Visual Fox Pro > Botón en el Screen y ejemplo de BindEvents

Botón en el Screen y ejemplo de BindEvents


En este ejemplo veremos como poder agregar un botón en el Screen de VFP y programar el evento Click utilizando el BindEvents.

Public oHnd
oHnd = Newobject(“MiClick”)
With _Screen
.AddObject(“CmdBoton”, “CommandButton“)
Bindevent(_Screen.CmdBoton,”Click”,oHnd,”ReClick”)
With .CmdBoton
.Caption = “Prueba”
.Height = 30
.Top = (_Screen.Height / 2) – (.Height / 2)
.Left = (_Screen.Width / 2) – (.Width / 2)
.Visible = .T.
Endwith
Return

ENDWITH

Define Class MiClick As Session
Procedure ReClick
Messagebox(“Evento Click”)
Return
EndDefine

Categorías:Visual Fox Pro
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: