https://foro.gambas-es.org/viewtopic.php?f=4&t=1441&p=23875#p23875
-----------------------------------
vuott
Viernes, 31 Octobre 2014, 19:27

Re: Funcion Para Buscar En Un ComboBox Mientras Se  Escribe
-----------------------------------
...la mi sugerencia no es una función pero sugeriría esta solución:
[code linenumbers=false syntax=gambas]Public Sub Form_Open()  
     
  ComboBox1.Tag = 1  
     
End  
     
     
Public Sub ComboBox1_Change()  
     
  With ComboBox1  
    .Text = ComboBox1[.List.Find(String.Left(.Text, .Pos) & "*", gb.Like)].Text  
    .Pos = .Tag  
  End With  
     
End  
     
     
Public Sub ComboBox1_KeyRelease()  
     
  If Key.Code < 127 Then  
    Inc ComboBox1.Tag  
  Else  
    ComboBox1.Tag = ComboBox1.Pos + 1  
  Endif  
     
End[/code]


