• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 659
  • Last Modified:

how to use picture1.point?

I'm using this:

MsgBox Picture1.Point(4, 4)

and I get a Long number:
7745800

How can I get the Red,Green and Blue value?
0
wcoka
Asked:
wcoka
1 Solution
 
CrinCommented:
Hi,

For Red: Value Mod 256
For Green: (Value \ 256) Mod 256
For Blue: (Value \ 65536) Mod 256

Sincerely,
Crin
0
 
CrinCommented:
Hehe...
Actually, latest formula doesn't require mod operation...

so, it will look like
For Blue: Value \ 65536

(Where Value is a result of the Point function)

Sincerely,
Crin
0
 
rspahitzCommented:
Or convert to hex first, then pull out the piece you need:

Private Sub Command1_Click()
  Dim strPointColor As String
strPointColor = Format$(Hex$(Picture1.Point(4, 4)), "000000")

Debug.Print "Blue component is " & Val("&H" & Left$(strPointColor, 2))
Debug.Print "Green component is " & Val("&H" & Mid$(strPointColor, 3, 2))
Debug.Print "Red component is " & Val("&H" & Right$(strPointColor, 2))
Debug.Print
End Sub
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
wcokaAuthor Commented:
Hey guys, wich of thos two answers is faster? which way?

Also, what does that long number that comes from the point method means?

Thanks a lot
0
 
rspahitzCommented:
Crin's is probably fasters since it doesn't convert back and forth between strings.

That long number is Window's way of keeping track of colors.  It actually represents the three components of a color monitor--Red, Green, and Blue pixels.  Since each can have a computer-defined range of 0 (off) to 255 (full intensity) they had the choice of forcing you to take the pixels individually to determine the color, or combine it; they chose to combine it.

For example, when you see yellow on the screen, your eye is actually tricked into it by seeing bright red combined with bright green.

That long number is actually the computer storing the pixel values in three consecutive bytes which, when interpreted in decimal, looks like a long number that you see.  When interpreted in hexadecimal, it becomes much clearer what each component represents.  Both examples above take different approaches to interpreting the number's 3 bytes.
0
 
CrinCommented:
Hi.

rspahitz's answer regarding long number is almost right.

Actually, *four* bytes used to store each pixel colour: three to store each channel intensity and one to define custom colors.

For example, there are system values for following colors: scroll bars, desctop, active title bar, inactive title bar etc. And you can use these settings to specify form background color.

So, if you get long number that represents color:
00 xx yy zz (smallest goes last) - 00 means that it is custom color, xx - blue component value, yy - green component value, and zz - red component value.
80 (hexadecimal value) in place of 00 will mean that system will fill form or any other control to specified system color.

Also, my way will work faster since string operations are most time consuming in VB for simplest data types.

Sincerely,
Crin.
0
 
DanRollinsCommented:
Hi wcoka,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will ask a Community Support Moderator to:

    Accept Crin's comment(s) as an answer.

wcoka, if you think your question was not answered at all or if you need help, just post a new comment here; Community Support will help you.  DO NOT accept this comment as an answer.

EXPERTS: If you disagree with that recommendation, please post an explanatory comment.
==========
DanRollins -- EE database cleanup volunteer
0
 
SpideyModCommented:
per recommendation

SpideyMod
Community Support Moderator @Experts Exchange
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now