Printable View
I'm not sure how to get the red, green, and blue bits from the long data type that is returned from the getpixel routine. Could anybody show me how to do this?
A=getpixel(5,5,me.hdc)
What is a's red value (0-255)?
What is a's green value (0-255)?
What is a's blue value (0-255)?
Enjoy!
Code:
Private Sub Form_Load()
Dim lColor As Long
lColor = RGB(225, 75, 180)
Debug.Print GetR(lColor)
Debug.Print GetG(lColor)
Debug.Print GetB(lColor)
End Sub
Private Function GetR(ByVal pCol As Long) As Byte
GetR = pCol Mod 256
End Function
Private Function GetG(ByVal pCol As Long) As Byte
pCol = pCol \ 256
GetG = pCol Mod 256
End Function
Private Function GetB(ByVal pCol As Long) As Byte
pCol = (pCol \ 256) \ 256
GetB = pCol Mod 256
End Function
Thanks Youngbuck; I thought it could only be done with hex. (I forgot the code, its in a microsoft MSChart MSDN thing or something)
Thanks!
Better? ;)Code:
Private Sub Form_Load()
Dim lColor As Long
lColor = RGB(255, 255, 255)
Debug.Print GetR(lColor)
Debug.Print GetG(lColor)
Debug.Print GetB(lColor)
End Sub
Private Function GetR(ByVal pCol As Long) As Byte
GetR = pCol Mod &H100
End Function
Private Function GetG(ByVal pCol As Long) As Byte
pCol = pCol \ &H100
GetG = pCol Mod &H100
End Function
Private Function GetB(ByVal pCol As Long) As Byte
pCol = (pCol \ &H100) \ &H100
GetB = pCol Mod &H100
End Function
Sas! Check out how you could do this without any mathematical operators:
http://forums.vb-world.net/showthrea...rgb#post219447
Shuts up, sits cross legged in the corner and listens to the Guru! :o :o :o :o ;)
yo kedaman, get a better avatar!
(not that i dont like your drawing)
goto www.yahoo.com
search for 'chrono trigger dance party'
go to the page and download your favourite character!
Ok, thanks for the suggestion