Recherche incrémentable dans combobox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 966 fois - Téléchargée 25 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.