Solved

change hex color to ligher or darker

Posted on 2004-10-11
2
605 Views
Last Modified: 2010-05-18
I need some kind of function that can i change a hex color to lighter or darker.

Example:
------------------------

strColor = LightenColor("#000000", 50)
strColor2 = LightenColor("#FFFFFF", 25)

Function LightenColor(strHex, strValue)
      'strHex holds the color
      'strValue holds how much to change
      'Code to lighten color
End Function

Function DarkenColor(strHex, strValue)
      'strHex holds the color
      'strValue holds how much to change
      'Code to lighten color
End Function
------------------------

Thanks in advanced.
0
Comment
Question by:MadDog986
2 Comments
 
LVL 14

Accepted Solution

by:
dfu23 earned 250 total points
ID: 12280930
Something along these lines ... intPercentage can be a positive number to lighten and negative to darken:

Function LightenDarken(intR, intG, intB, intPercent)
    Dim r : r = Int((intR * intPercent) / 100)
    Dim g : g = Int((intG * intPercent) / 100)
    Dim b : b = Int((intB * intPercent) / 100)
    If r > 255 Then r = 255
    If g > 255 Then g = 255
    If b > 255 Then b = 255
    If r < 0 Then r = 0
    If g < 0 Then g = 0
    If b < 0 Then b = 0
    r = Hex(r)
    g = Hex(g)
    b = Hex(b)
    If Len(r) = 1 Then r = "0" + r
    If Len(g) = 1 Then g = "0" + g
    If Len(b) = 1 Then b = "0" + b
    LightenDarken = r + g + b
End Function
0
 

Author Comment

by:MadDog986
ID: 12295439
thanks, had to edit it a bit but that works.
0

Featured Post

U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question