ayuda auxilio amigos
24 de Agosto del 2005

AMIGOS
NECESITO PROGRAMAR CON COMANDOS LA CREACION DE UN FORMULARIO Y INCLUIR EN EL UN TEXTBOX QUE HAGA UNA RUTINA CON EL EVENTO KEYPRESS

AYUDENME GRACIAS
SALUDOS

V?or Granda
24 de Agosto del 2005

Hola, aqu铆 va un ejemplo tomado de la ayuda de VFP

frmMiForm = CREATEOBJECT('Form') && Crea un formulario.
frmMiForm.Closable = .F. && Desactiva el cuadro del men煤 Control.

frmMiForm.AddObject('shpLine','Line') && Agrega un control Line al formulario.
frmMiForm.AddObject('cmdBtnCmnd1','cmdMiBtnCmnd1') && Bot贸n Arriba.
frmMiForm.AddObject('cmdBtnCmnd2','cmdMiBtnCmnd2') && Bot贸n Abajo.
frmMiForm.AddObject('cmdBtnCmnd3','cmdMiBtnCmnd3') && Bot贸n Salir.

frmMiForm.shpLine.Visible = .T. && Hace visible el control Line.
frmMiForm.shpLine.Top = 20 && Especifica la fila del control Line.
frmMiForm.shpLine.Left = 125 && Especifica la columna del control Line.

frmMiForm.cmdBtnCmnd1.Visible =.T. && Bot贸n Arriba visible.
frmMiForm.cmdBtnCmnd2.Visible =.T. && Bot贸n Abajo visible.
frmMiForm.cmdBtnCmnd3.Visible =.T. && Bot贸n Salir visible.

frmMiForm.SHOW && Muestra el formulario.
READ EVENTS && Inicia el procesamiento de eventos.

DEFINE CLASS cmdMiBtnCmnd1 AS COMMANDBUTTON && Crea un bot贸n de comando.
Caption = 'Inclinado <arriba' && T铆tulo del bot贸n de comando.
Left = 50 && Columna del bot贸n de comando.
Top = 100 && Fila del bot贸n de comando.
Height = 25 && Alto del bot贸n de comando.

PROCEDURE Click
ThisForm.shpLine.Visible = .F. && Oculta el control Line.
ThisForm.shpLine.LineSlant ='/' && Inclinado hacia arriba.
ThisForm.shpLine.Visible = .T. && Muestra el control Line.
ENDDEFINE

DEFINE CLASS cmdMiBtnCmnd2 AS CommandButton && Crea bot贸n de comando.
Caption = 'Inclinado a<bajo' && T铆tulo del bot贸n de comando.
Left = 200 && Columna del bot贸n de comando.
Top = 100 && Fila del bot贸n de comando.
Height = 25 && Alto del bot贸n de comando.

PROCEDURE Click
ThisForm.shpLine.Visible = .F. && Oculta el control Line.
ThisForm.shpLine.LineSlant ='\' && Inclinado hacia abajo.
ThisForm.shpLine.Visible = .T. && Muestra el control Line.
ENDDEFINE

DEFINE CLASS cmdMiBtnCmnd3 AS CommandButton && Crea un bot贸n de comando.
Caption = '<Salir' && T铆tulo del bot贸n de comando.
Cancel = .T. && Bot贸n de comando Cancelar predeterminado (Esc).
Left = 125 && Columna del bot贸n de comando.
Top = 150 && Fila del bot贸n de comando.
Height = 25 && Alto del bot贸n de comando.

PROCEDURE Click
CLEAR EVENTS && Detiene el procesamiento de eventos, cierra el formulario.
ENDDEFINE