FoxPro/Visual FoxPro - Solo para expertos......

 
Vista:

Solo para expertos......

Publicado por Javiercito... (2 intervenciones) el 15/11/2002 03:18:26
Como puedo crear un cuadro combinado de busqueda que actue como el cuadro combinado de direccion del navegador, que cada vez que escribes una palabra despliegue una lista con los valores que conincidan con la letra o palabra que estes escribiendo...

He hecho esta pregunta en varios foros y nadie ha podido contestar, espero que uno de ustedes pueda..

De antemano muchas gracias...
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

RE:Solo para expertos......

Publicado por Arturo Garcia Casas (156 intervenciones) el 16/11/2002 02:35:09
Mira en un cuadro combinado de Fox, puedes cambiar la propiedad Style
a Lista desplegable.........en ella se reconoce las primeras letras que escribes y te ubica el nombre que andas buscando.
pero no se despliega el cuadro.........

pero puedes hacer realidad esa opcion si creas tu propio diseño con un cuadro de texto y un cuadro de lista, de tal manera que cuando escribas un dato te aparescan las similitudes que quieras encontrar.....logico si existen que se ponga visible el cuadro de lista con las opciones sino, pues que se quede normal......como la vez.

si gustas intentarlo,,,,,,,puedes mandarme un email y te puedo ayudar...es facil....ok
bye
saludos desde veracruz, ver. mexico
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Solo para expertos......

Publicado por Joel (18 intervenciones) el 16/11/2002 19:19:21
Mejor checate este codigo:

Tengo una clase que emula ese comportamiento en los combos.. ay te paso el
codigo de la clase:

*--- PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
with this
if Between(nKeyCode, 32, 122)
Local x,nCurPos
x = 1
nCurPos = 1

for x = 1 to .listCount
if upper(substr(.list(x), 1, .selstart + 1)) = ;
upper(substr(.text, 1, .selstart)+chr(nKeyCode))
nCurPos = .selstart + 1
.DisplayValue = .list(x)

.SelStart = nCurPos

.SelLength = len(alltrim(.list(x))) - iif(nCurPos >
len(allt(.list(x))),0,nCurPos)

nodefault
exit
endif
endfor
endif

if Between(nKeyCode, 32, 122)
nodefault
endif
endwith

*--- ENPROC

*--- PROCEDURE GotFocus
keyboard '{ALT + DNARROW}'
*---END PROC

--
Saludos... :0)

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar