RGB Values from a picturebox - Xtreme Visual Basic Talk

04-02-2005, 09:54 PM

tblakemore tblakemore is offline

Newcomer

Join Date: May 2004

Posts: 18

RGB Values from a picturebox

Hello,

I have a simple question. I have a form and a picturebox. All I want to do is when I mouseover the picturebox, have the pixels RGB value that is under the cursor displayed in a textbox.

However, I cannot find any documentation to do this.

I have tried --> picture1.point(X,Y) <-- to retrieve the color but it returns the result as a long number.

Does anyone know how to convert this number to an RGB or if there is another function to retrieve the RGB of an image a cursor is under.

04-02-2005, 10:12 PM

Gruff

Bald Mountain Survivor

Super Moderator
* Expert *

Join Date: Aug 2003

Location: Oregon, USA

Posts: 5,882

Code:

Option Explicit

Dim Color As Long
Dim Red As Byte
Dim Green As Byte
Dim Blue As Byte

Color = Picture1.Point(X, Y)

Red = Color And &HFF
Green = (Color And &HFF00&) \ &H100&
Blue = (Color And &HFF0000) \ &H10000

Msgbox Red & "//" & Green & "//" & Blue

__________________
Burn the land and boil the sea
You can't take the sky from me

~T