Changing a colour to GREYSCALE

Category:

Screen/Graphics

Type:

Snippets

Difficulty:

Beginning

Author:

Waty

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

' Public Function GreyScale(ByVal Colr As Long) As Integer

' #VBIDEUtils#********************************************
' * Programmer Name  : Steve Butler
' * Web Site         : http://nt1.pncl.co.uk/sbutler
' * E-Mail           : sbutler@pncl.co.uk
' * Date             : 11 / 5 / 98
' * Time             : 11:33
' * Procedure Name   : GreyScale
' * Parameters       :
' *                    ByVal Colr As Long
' ****************************************************
' * Comments         : Changing a colour to GREYSCALE
' * You've got the Long Value for a colour but decide you need 
' * to turn it into the Grayscale equivalent.
' *
' e.g., me.backcolor = GreyScale(vbRed)
' **************************************

' Takes a long integer color value and converts
' it to an equivalent grayscale value between
' 0 and 255

Dim R As Long, G As Long, B As Long
' Break up long color value into red, green, blue

R = Colr Mod 256
Colr = Colr \ 256
G = Colr Mod 256
Colr = Colr \ 256
B = Colr Mod 256

' Find equivalent grayscale value, 0 - 255.
GreyScale = 76 * R / 255 + 150 * G / 255 + 28 * B / 255
   
End Function