converting byte data to Drawing.Color

[Boumxyz2]

Maybe you want something like this.. I didn't test it.



EXAMPLE :

 Dim b As Integer
            b = 65535
            Const RED As Integer = 63488
            Const green As Integer = 2016
            Const blue As Integer = 31

            Const MaxRed As Integer = 31
            Const MaxGreen As Integer = 63
            Const MaxBlue As Integer = 31

            Dim bred As Integer = (b And RED)
            Dim bgreen As Integer = (b And green)
            Dim bblue As Integer = (b And blue)

            bred = bred >> 11 ' ------ > Takes out the 0 
            bgreen = bgreen >> 5 ' ----- > takes out the 0

            Dim flBred As Decimal = (bred \ MaxRed)    'Now you got the red proportion in byte
            Dim flbgreen As Decimal = (bgreen \ MaxGreen)
            Dim flbblue As Decimal = (bblue \ MaxBlue)

            bred = CInt(flBred * 255)
            bgreen = CInt(flbgreen * 255)
            bblue = CInt(flbblue * 255)

            Dim newColor As System.Drawing.Color

            newColor = New System.Drawing.Color

            newColor.FromArgb(bred, bgreen, bblue)