• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Get the seperate RGB values of a Colour

Get the seperate RGB values of a Colour

It turns the Decimal format of a colour value (example: 16777215) into three seperate values containing the seperate Red, Green, and Blue values. (example: red = 255, green = 255, blue = 255).

Inputs
Input the colour that you wish to turn into its seperate RGB values. This should be in Decimal format.

Assumes
Just make sure to keep the types as Long (&) because using an Integer (%) causes an overflow in the Red Value.

Returns
Returns the Red, Green, and Blue value from a colour.

Side Effects
'None.

API Declarations
'None.

Rate Get the seperate RGB values of a Colour

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Dim blue&, green&, red&, colour&
Blue& = Int(Colour& / 65536)
Green& = Int((Colour& - (65536 * Blue&)) / 256)
Red& = Colour& - (Blue& * 65536) - (Green& * 256)
'to return the colour to its original decimal format
Colour& = RGB(Red&, Green&, Blue&)