Recherche incrémentable dans combobox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 162 fois - Téléchargée 22 fois

Contenu du snippet

Bonjour,

J'ai trouvé cette source sur un site anglophone apres une recherche sur google.
Petit code simple !
Je pense qu'il peut intérésser beaucoup d'netre nous !

Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress

If Char.IsControl(e.KeyChar) Then Return

With Me.ComboBox1

Dim ToFind As String = .Text.Substring(0, .SelectionStart) & e.KeyChar
Dim Index As Integer = .FindStringExact(ToFind)

If Index = -1 Then Index = .FindString(ToFind)

If Index > -1 Then
.SelectedIndex = Index
.SelectionStart = ToFind.Length
.SelectionLength = .Text.Length - .SelectionStart
e.Handled = True
End If
End With
End Sub

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.