https://foro.gambas-es.org/viewtopic.php?f=5&t=2914
-----------------------------------
Shell
Domingo, 24 Febrero 2013, 11:11

Ejemplo De Busqueda En Un Listbox, Letra A Letra
-----------------------------------
Hola!.

Este ejemplo es un parecido al que encontré en la comunidad francesa.
Pero no es exactamente igual.

En este ejemplo, tenemos una lista de las funciones del basic de Zx Spectrum.
Si escribimos directamente, letra a letra, estas van apareciendo en la etiqueta, formando una palabra.

Esta palabra se busca en la lista y se sitúa en ella si existe. Si usamos la tecla retroceso, se va eliminando
por la derecha una letra de la palabra formada.Cuando la longitud de la palabra es cero, desaparece 
la selección de la lista.

Luego también tenemos la caja de texto en la que escribimos directamente la palabra a buscar.

Código:

[code linenumbers=false syntax=gambas]
' Gambas class file

Private palabra As String

Public Sub _new()
  
End

Public Sub Form_Open()
  
  Me.Center
  Me.Caption = "BASIC SINCLAIR"
  'Llenamos la lista
  llenarlista(lstLista)
  palabra = ""
  
End

Public Sub llenarlista(lista As ListBox)
  
  With lista
    .Add("ABS")
    .Add("ACS")
    .Add("AND")
    .Add("ASN")
    .Add("AT")
    .Add("ATN")
    .Add("ATTR")
    .Add("BEEP")    
    .Add("BIN")
    .Add("BORDER")
    .Add("BRIGHT")
    .Add("CAT")
    .Add("CHR$")
    .Add("CIRCLE")
    .Add("CLEAR")
    .Add("CLOSE#")
    .Add("CLS")
    .Add("CODE")
    .Add("CONT")
    .Add("COPY")
    .Add("COS")
    .Add("DATA")
    .Add("DEF FN")
    .Add("DIM")
    .Add("DRAW")
    .Add("ERASE")
    .Add("EXP")
    .Add("FLASH")
    .Add("FN")
    .Add("FOR")
    .Add("FORMAT")
    .Add("GOSUB")
    .Add("GOTO")
    .Add("IF")
    .Add("IN")
    .Add("INK")   
    .Add("INKEY$")
    .Add("INPUT")
    .Add("INT")
    .Add("INVERSE")
    .Add("LEN")
    .Add("LET")
    .Add("LINE")
    .Add("LIST")
    .Add("LLIST")
    .Add("LN")
    .Add("LPRINT")
    .Add("MERGE")
    .Add("MOVE")
    .Add("NEW")
    .Add("NEXT")
    .Add("NOT")
    .Add("OPEN#")
    .Add("OR")
    .Add("OUT")
    .Add("OVER")
    .Add("PAPER")
    .Add("PAUSE")
    .Add("PEEK")
    .Add("PI")
    .Add("PLOT")
    .Add("POINT")
    .Add("POKE")
    .Add("PRINT")
    .Add("RANDOMIZE")
    .Add("READ")
    .Add("REM")
    .Add("RESTORE")
    .Add("RETURN")
    .Add("RND")
    .Add("RUN")
    .Add("SAVE")
    .Add("SCREEN$")
    .Add("SGN")
    .Add("SIN")
    .Add("SQR")
    .Add("STEP")
    .Add("STOP")
    .Add("STR$")
    .Add("TAB")
    .Add("TAN")
    .Add("THEN")
    .Add("TO")
    .Add("USR")
    .Add("VAL")
    .Add("VAL$")
    .Add("VERIFY")    
  End With    
  
  lista.Sorted = True
  
End

Public Sub txtNombre_KeyRelease()
  
  Dim x As Integer
  
  If Key.Code <> Key.BackSpace And lstLista.Count <> 0 Then       
    For x = 0 To lstLista.Count - 1     
      If InStr(Left(UCase(lstLista[x].Text), Len(txtNombre.Text)), UCase(txtNombre.Text)) <> 0 Then
        lstLista.Index = x          
        Return      
      Endif      
    Next
  Else
    If Len(txtNombre.Text) = 0 Then lstLista.Index = -1    
    Return
  Endif
  
End

Public Sub lstLista_KeyRelease()
  
  Dim x As Integer
  
  'Si la lista contiene más de un elemento  
  If lstLista.Count > 1 Then                                                           
    'Si la tecla retroceso es pulsada
    Select Case (Key.Code)                                                             
      Case Key.BackSpace
        'Eliminamos una letra de la variable palabra
        palabra = Left(palabra, Len(palabra) - 1)                                      
      Case Else
        'Añadimos una letra a la variable palabra
        palabra &= Chr$(Key.Code)                                                      
    End Select
    'Mostramos en la etiqueta el contenido de la variable palabra 
    lbpalabra.Text = palabra                                                           
    If Len(palabra) = 0 Then                                                           
      'Si la longitud de la palabra es 0, no selecciones ningún elemento.
      lstLista.Index = -1
      Return
    Endif
    For x = 0 To lstLista.Count - 1     
      'Si la subcadena se encuentra en la cadena
      If InStr(Left(UCase(lstLista[x].Text), Len(palabra)), UCase(palabra)) <> 0 Then  
        'Situate en el elemento x de la lista
        lstLista.Index = x                                                             
        Return      
      Endif      
    Next
  Else 
    'Lista vacia
    Message.Info("No existen elementos en la lista")                                   
    Return
  Endif  
  
End

Public Sub btnSalir_Click()

  Me.Close

End

[/code]

La idea es crear como un diccionario de estas palabras, con la función que hacían.
El formato de la instrucción,distribución en el teclado,etc.

Otra posibilidad es que esa lista este en un array, a la hora de escribir la palabra en un "posible" editor, aparezca la palabra directamente sin apenas escribirla.
¿ Que por que lo de Spectrum ?, Ah, es que soy un nostálgico de esas maquinas y como la lista era un poco larga. :roll: 

Comentar que el evento KeyRelease, me fue mejor que el KeyPress.

Según parece el primer elemento que se coloca en el formulario es el que tiene el foco.Por eso el Listbox responde nada mas pulsar una tecla.

Y el código fuente.

Saludos


-----------------------------------
reyes
Viernes, 25 Marzo 2016, 22:07

Re: Ejemplo De Busqueda En Un Listbox, Letra A Letra
-----------------------------------
asi no porque el gridview esta conectado ala base de datos, lo que yo quiero es que al yo escribir en el textbox los nombre de vallan buscando un el data gridview


