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