Per quanto hai cercato un combobox con la possibilità di ricerca? Ecco una semplice implementazione:
Private Sub
CombBox1_KeyPress(ByVal sender
As Object, ByVal e
As
System.Windows.Forms.KeyPressEventArgs) Handles
ComboBox1.KeyPress
Dim findString
As String =
String.Empty
If (Not
e.KeyChar.IsLetterOrDigit(e.KeyChar, 0)) Then Exit Sub
findString
= e.KeyChar
With
ComboBox1
.SelectedIndex =
ComboBox1.FindString(findString)
End With
If
ComboBox1.SelectedIndex > -1 Then e.Handled =
True
End Sub
Ciao a tutti!