~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Procédure : RechercheListe (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, _ ByVal lParam As Any) As Long Private Const LB_FINDSTRING = &H18F Public Sub RechercheListe(lstListe as Object, stTexte as String) ' lstListe contient la liste sur laquelle il faut effectuer la recherche, ' stTexte est le texte à rechercher. lstListe.ListIndex = SendMessage(lstListe.hwnd, LB_FINDSTRING, -1, ByVal stTexte) End Sub |