Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : DansListe
Permet de savoir si un élément donné fait partie d'une liste (tableau).
(Consulté 19455 fois.)

Public Function DansListe(stTmp As String, ParamArray tabList()) As Boolean
' Vérifie si stTmp se trouve dans la liste passée en paramètre.
' Le "ParamArray" permet de passer un nombre d'arguments indéfinis.
' Exemple d'appel :
' ...
' If DansListe(stQui, "Moi", "Lui", "Elle", "Nous") Then
' ...
Dim lgFor As Long, blOk As Boolean
' Initialisation de la valeur de retour
blOk = False
For
lgFor = 0 To UBound(tabList)
   
' Comparaison des éléments
   
blOk = (tabList(lgFor) = stTmp)
   
' Sort si on trouve
   
If blOk Then Exit For
Next
lgFor
' Retourne le résultat de la recherche
DansListe = blOk
End Function
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr