Ricerca Progressiva per i combi

[adamino]

il primo messaggio e' stato eliminato.
bho....
prova questa ricerca progressiva.
E' perfettamente funzionante.
Lascio a te le finezze che si possono aggiungere come:

il messaggio precedente in effetti
spiegava come evitare che
ad esempio si digiti una lettera che non e'
piu' presente nel nome
es: adamino ------- adaminnnn ecc.

Private Sub txtRicerca_KeyUp(KeyCode As Integer, Shift As Integer)
Dim I As Integer
Dim lung As Integer
lung = Len(txtRicerca.Text)
For I = 0 To cboAllievi.ListCount - 1
If UCase(txtRicerca.Text) = UCase(Left(cboAllievi.List(I), lung)) Then
cboAllievi.ListIndex = I
Exit For
End If
Next I
End Sub
ciao.