FoxPro/Visual FoxPro - COMO ESCRIBIR ESTO EN OOP

Estimados colegas,

Como no tengo muy poca experiencia en OOP, especialmente en VFP,
me gustaría saber como escribo el código abajo escrito en FoxPro en
OOP o Visual Fox Pro, usando FORM etc.

key=space(20)
@10,20 SAY " ESCRIBA LA PALABRA CLAVE" GET KEY PICTURE "!!!!!!!!!!!!!!!!!!!"
READ
LOCATE FOR &KEY$CAMPO1

O
EN LUGAR DE LOCATE...

USE &KEY (PARA ABRIR UN FICHERO)

Muchas gracias porm su ayuda.

saludos desde brasil

Luis Gomes

Hola Luis:

Lo que tienes que hacer es crear un formulario, dentro de el Insertas un TextBox, en el TextBox le das las siguientes propiedades:

Text1.Picture = R
Text1.InputMask = "!!!!!!!!!!!!!!!!!!!"
Text1.MaxLengh = 20

En en evento Value o LostFocus escribes:

lcTabla = This.Value
Locate For &lcTabla.Campo1

o

Use &lcTabla

Prueba y me cuentas

Saludos
P.D.
Para tener acceso a las Propiedades del TextBox, le das Bonton derecho sobre el TextBox y luego seleccionas propiedades.

Estimado Foxperto,

Valeu! Nota 10 (cómo se dice en Portugués)

Usted sabe de las cosas... muchas gracias por su ayuda.

Saludos

desde Brasil

Luis Gomes

Estimado FoxPerto,

En la verdad, solamente el último ejemplo está cierto, a ver

lcTabla = This.Value
Use &lcTabla

El otro caso, no:

lcTabla = This.Value
Locate For &lcTabla.Campo1

Falta aquí alguna información palabra-clave o nombre de archivo
que yo no sé como hacer.

Hola Luis:

Ciertamente faltaba el valor a comparar

lcTabla = This.Value
Locate For &lcTabla.Campo1 = lcVariable

Saludos