FoxPro/Visual FoxPro - Buscar texto y ubicar cursor

   
Vista:

Buscar texto y ubicar cursor

Publicado por Dario (321 intervenciones) el 21/05/2009 21:35:57
Bajo version 6

Desde un boton, activo una ventana donde se introduce un texto, el que si se
encuentra se deberia ubicar el cursor en un edit asociado al memo.

El texto es encontrado, tengo su posicion, pero al tener el foco el edit2
(de solo lectura) queda el cursor al principio del texto en su edit.

Consejo???
Gracias

Mi codigo es

...lcBusca ya viene en upper()

lcBusca = ALLTRIM(m.busca)
lnLen = LEN(lcBusca)
lnPos = AT(lcBusca,upper(paciente.h_clinica))
IF lnPos > 0
thisform.buscado=1
thisform.pageframe1.page2.Edit2.SELSTART = lnPos - 1
thisform.pageframe1.page2.Edit2.SELLENGTH = lnLen
thisform.pageframe1.page2.Edit2.refresh
thisform.pageframe1.page2.Edit2.SETFOCUS
exit
ELSE
thisform.buscado=0
MESSAGEBOX("No se encuentra texto indicado",64,"Aviso")
ENDIF

Dario
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder