Extract RGB components from a Long value

Extract RGB components from a Long value

You can extract RGB values out of a 32-bit color value by using the integer division and the MOD operators, but there is a much more effective way, based on the LSet. You can convert from a long to rgb bytes and vice versa with the following code:

Private Type RGBWrapper   Red As Byte   Green As Byte   Blue As Byte   Alpha As ByteEnd TypePrivate Type LONGWrapper   Value As LongEnd TypePrivate Sub Form_Load()   Dim Color As LONGWrapper   Dim Colors As RGBWrapper   Color.Value = RGB(255, 123, 55)   LSet Colors = Color 'do the actual conversion   MsgBox Colors.Red   MsgBox Colors.Green   MsgBox Colors.BlueEnd Sub

See also  Why ChatGPT Is So Important Today

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist