Extract RGB components from a Long value [ All Languages » VB »  Graphics] Total Hit ( 2994) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

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: Click here to copy the following block Private Type RGBWrapper   Red As Byte   Green As Byte   Blue As Byte   Alpha As Byte End Type Private Type LONGWrapper   Value As Long End Type Private 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.Blue End Sub

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 )