Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: beginner
Sep 14, 2002

CompareList - Compare an argument with a list of values

' Return the position of the argument in a list of values
' or zero if the argument isn't included in the list
' It works for both regular values and for objects
'
' This handy function can often save you a lengthy Select Case
' statement or a complex series of If...ElseIf blocks
'
' Example: check whether a string is a valid continent name
'     If CompareList(aString, "America", "Europe", "Asia", "Africa",
'  "Australia") > 0 Then MsgBox "OK"

Function CompareList(ByVal Arg As Object, ByVal ParamArray Values() As Object) _
    As Integer
    Return Array.IndexOf(Values, Arg) + 1
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date