How to convert from signed integer / decimal to RGB in Realbasic ?

Dec 8, 2009 Posted by Lara Kannan

Last Monday, I faced one color conversion issue in my RealBasic application. That is, how to convert from the signed integer to RGB color in REALBASIC?. There is no stright forward funtion available in Realbasic.

Luckly, I got one clue from the Realbasic forum. I am not too sure if this is absolutely correct; but I have tried this with some of the decimals and I am getting the correct RGB value.

Solution for decimal to RGB conversion :

Private Function Convert_Dec2RGB(ByVal myDECIMAL As Long) As String
Dim myRED As Long
Dim myGREEN As Long
Dim myBLUE As Long

myGREEN = (myDECIMAL And &HFF00&) \ 256
myBLUE = myDECIMAL \ 65536

Convert_Dec2RGB = CStr(myRED) & "," & CStr(myGREEN) & "," & CStr(myBLUE)
End Sub

Solution for signed integer to RGB conversion:

Private Function Convert_sInteger2RGB(ByVal myDECIMAL As Long) As Color
Dim newRGB as Variant
Convert_sInteger2RGB = newRGB.ColorValue
End Sub

Let me know if you have any comment or feedback on this.

I hope this ll help you. A 'Thank You' would be nice!


Post a Comment