Autocompletar?????...

Visual Maniac2004
12 de Abril del 2004
Hola a Todos:
Quisiera si alguien me puede orientar en lo que a "AUTOCOMPLETAR" se refiere. Me explico: tengo un textbox que es donde ingreso el e-mail de clientes y quiero que luego del "@" el nombre del servidor se autocomplete. Ni mas ni menos como sucede con la barra de direcciones del EXPLORER.
Se podrá hacer?...
Desde ya, muy agradecido.

abraham
12 de Abril del 2004
no se de donde lo baje pero espero que te sirva:

es para un combo box pero a lo mejor lo puedes adecuar al text:

f thisform.compradores_lista.listcount != 0
if between(nKeyCode, 32, 122)
for x = 1 to this.ListCount
if upper(subs(this.list(x), 1, this.selstart+ 1)) = ;
upper(subs(this.text, 1, this.selstart)+chr(nKeyCode))
nCurPos = this.selstart + 1
this.Value = this.list(x)
this.SelStart = nCurPos
IF THIS.SELLENGTH > 0
this.SelLength = len(allt(this.list(x))) - nCurPos
ENDIF
nodefault
exit
endif
next x
endif
endif
if nkeycode = 9
store "" to nuevo
store .f. to esta
nuevo = this.TEXT
for I = 1 to thisform.compradores_lista.listcount
thisform.compradores_lista.listindex = i
if rtrim(thisform.compradores_lista.value) = rtrim(NUEVO)
esta = .t.
exit for
endif
next i
if esta = .f.
thisform.compradores_lista.additem(rtrim(NUEVO))
thisform.compradores_lista.listindex = thisform.compradores_lista.listcount
endif
endif

nos vemos

tigrefox
12 de Abril del 2004
Hola, partiendo del hecho que tienes guardadas las direcciones en una tabla "MISDIR.DBF" y que está este ordenada por "EMAIL", use el evento InteractiveChange asi:
Select MISDIR
Seek alltrim(ThisForm.Text1.Value"
If Found()
ThisForm.Text1.Value = MISDIR.EMAIL
Endif

Espero tesirva, de ahi en adelante ya va tu ingenio.

TIGREFOX