KeepInRange - Ensure that a value is in a given range [ All Languages » VB.net »  Language] Total Hit ( 2616) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

Click here to copy the following block ' Keep the first argument in the range [lowLimit, highLimit] ' If the value is adjusted, the fourth (optional) argument is set to True ' ' This function works will all basic data types and with objects ' that implement the IComparable interface Function KeepInRange(ByVal value As Object, ByVal lowLimit As Object, _   ByVal highLimit As Object, Optional ByRef OutOfRange As Boolean = False) As _   Object   ' we leverage the IComparable interface   Dim icomp As IComparable = DirectCast(value, IComparable)   If icomp.CompareTo(lowLimit) < 0 Then     OutOfRange = True     Return lowLimit   ElseIf icomp.CompareTo(highLimit) > 0 Then     OutOfRange = True     Return highLimit   Else     OutOfRange = False     Return value   End If End Function

Related Article(s)

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)
	Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )