1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Recherche incrémentale

Recherche incrémentale

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 210 fois - Téléchargée 59 fois

Commenter

Contenu du snippet

Pour ce code vous avez besoin d'une combobox appelée combo1 et d'une textbox appelée text1

J'ai mis en dessous le code si l'on utilise une liste.CE code fonctionne ausi bien pour les Lettres que pour les chiffres

Source / Exemple : 


Private Sub Text1_Change()

Dim Lettre As String
Dim i, Nombre As Integer

If Text1.Text = "" Then Combo1.Text = ""

Lettre = Text1.Text
Nombre = Len(Text1.Text)

If Nombre = 0 Then Nombre = 1

For i = 0 To Combo1.ListCount - 1
    If Mid(UCase(Combo1.List(i)), 1, Nombre) = UCase(Lettre) Then
        Combo1.Text = Combo1.List(i)
        Combo1.SelLength = Len(Combo1.List(i))
        Exit Sub
    End If
Next

End Sub
-------------------------------------------------
Dim Lettre As String
Dim i,J Nombre As Integer

For i = 0 To List1.ListCount - 1
    List1.Selected(i) = False
Next

Lettre = Text1.Text
Nombre = Len(Text1.Text)

If Nombre = 0 Then Nombre = 1

For i = 0 To List1.ListCount - 1
    If Mid(UCase(List1.List(i)), 1, Nombre) = UCase(Lettre) Then
        List1.Selected(i) = True
        For J = 0 To i - 1
            List1.Selected(J) = False
        Next
        Exit Sub
    End If
Next

End Sub

Conclusion :


C'est sur que ce code n'est pas un " LE MEILLEUR PROGRAMME " mais il evite de se casser la tête à la chercher..et perdre du temps...

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 67
il l'est deja insensible a la casse...

a noter qu'un SendMessage CB_FINDSTRING aurait tout aussi bien fait l'affaire :p (recherche sur le début des items d'un ComboBox)
Signaler
Messages postés
7
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
12 juillet 2007
bonjour, ce code est vraiment génial...
mais quelqu'un pourrait me dire comment faire pour rendre insensible la casse ?
merci
S'inscrire maintenant

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.

Du même auteur (cs_ITALIA)