29/11/2006, 17:20
|
| | | Fecha de Ingreso: diciembre-2004
Mensajes: 129
Antigüedad: 20 años, 4 meses Puntos: 0 | |
| xtexto = LCase(Combo.Text)
For i = 0 To Combo.ListCount - 1
If len(LCase(Combo.List(i)),1,len(xtexto)) = xtexto Then
CboDep.ListIndex = i
Exit For
End If
Next
En el evento keydown pones el codigo que trata de hacer lo siguiente :
toma la cantidad de letras que hayas introducido en el combo, luego las compara con cada uno de los item que tiene el combo, el que coincida con el lo deja. |