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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 061 fois - Téléchargée 50 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
cs_Watergate Messages postés 8 Date d'inscription lundi 9 avril 2001 Statut Membre Dernière intervention 15 septembre 2003
13 janv. 2004 à 10:52
Pour un combobox, remplacer la constante LB_FINDSTRING par
CB_FINDSTRING = &H14C
cs_david Messages postés 23 Date d'inscription lundi 31 décembre 2001 Statut Membre Dernière intervention 19 mai 2012
10 févr. 2002 à 11:37
c'est top
thrakkazz2000 Messages postés 39 Date d'inscription mercredi 19 décembre 2001 Statut Membre Dernière intervention 19 juin 2003
6 févr. 2002 à 13:12
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.