Recherche dans un listbox - super rapide !!!!!!

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 786 fois - Téléchargée 47 fois

Contenu du snippet

J'ai trouver sur API Guide et sa marche !

Source / Exemple :


'This project needs a ListBox, named List1 and a TextBox, named Text1
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Add some items to the listbox
    With List1
        .AddItem "Computer"
        .AddItem "Screen"
        .AddItem "Modem"
        .AddItem "Printer"
        .AddItem "Scanner"
        .AddItem "Sound Blaster"
        .AddItem "Keyboard"
        .AddItem "CD-Rom"
        .AddItem "Mouse"
    End With
End Sub
Private Sub Text1_Change()
    'Retrieve the item's listindex
    List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

Conclusion :


@+ => www.psycomaxter.fr.st <=

A voir également

Ajouter un commentaire

Commentaires

Messages postés
8
Date d'inscription
lundi 9 avril 2001
Statut
Membre
Dernière intervention
15 septembre 2003

Pour un combobox, remplacer la constante LB_FINDSTRING par
CB_FINDSTRING = &H14C
Messages postés
24
Date d'inscription
lundi 31 décembre 2001
Statut
Membre
Dernière intervention
19 mai 2012

c'est top
Messages postés
39
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
19 juin 2003

cool... et si je veux que ça fasse la même chose mais en remplaçant la list box par un combobox ou une datacombobox ??
voir encore mieux que je puisse saisir directement dans la combobox/datacombobox
bref pour faire comme dans access

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.