How To Filtering Word Or SubString In Combox With Auto Suggest

Private Sub cbAutoCompleteVB_KeyPress(sender As Object, e As KeyPressEventArgs) Handles cbAutoCompleteVB.KeyPress
cbAutoCompleteVB.DroppedDown = True
If (Char.IsControl(e.KeyChar)) Then Return
Dim Str As String = cbAutoCompleteVB.Text.Substring(0, cbAutoCompleteVB.SelectionStart) + e.KeyChar
Dim Index As Integer = cbAutoCompleteVB.FindStringExact(Str)
If Index = -1 Then
Index = cbAutoCompleteVB.FindString(Str)
End If
Me.cbAutoCompleteVB.SelectedIndex = Index
Me.cbAutoCompleteVB.SelectionStart = Str.Length
Me.cbAutoCompleteVB.SelectionLength = Me.cbAutoCompleteVB.Text.Length - Me.cbAutoCompleteVB.SelectionStart
e.Handled = True
End Sub

1 Reply

Know the answer? Post it — somebody with the same question will find it here.