A1VBCode Forums / Classic Visual Basic (VB 6 or earlier) / API / RGB value / Latest Posts

RE: RGB value

vb5prgrmr — Fri, 24 Apr 2009 19:55:34 GMT


Dim PathTOPic As String
Dim MyColor As Long, R As Integer, G As Integer, B As Integer, Temp As Long
Me.Visible = True
DoEvents
PathTOPic = "C:\z\pb\1.jpg"
Picture1.Picture = LoadPicture(PathTOPic)
Picture1.AutoRedraw = True
MyColor = Picture1.Point(10, 10)
Debug.Print MyColor
Temp = MyColor Mod 65536
MyColor = MyColor - Temp
B = MyColor / 65536
MyColor = Temp
Temp = MyColor Mod 256
MyColor = MyColor - Temp
G = MyColor / 256
R = Temp
Debug.Print R, G, B
Debug.Print RGB(R, G, B)

However you will have to change the PathTOPic to your path to a picture.

Good Luck

RE: RGB value

Keithuk — Wed, 08 Oct 2008 16:11:48 GMT

Takeshi (10/8/2008)

Could you tell me which thread link on vbforums that same with my problem ?

I just did a quick search for picture color getpixel because getpixel is the API call. It came back with 57 topics. Image color getpixel came back with 41.

I would also recommend you do a search on PSC.

RE: RGB value

Takeshi — Wed, 08 Oct 2008 15:10:06 GMT

I'm sorry, i'm not increase it. I just not tell completely and specifics.

I search on vbforums, but i can't found any thread that same or similar with my problem. Could you tell me which thread link on vbforums that same with my problem ?

Please, help me... THanks. GBU.

RE: RGB value

Keithuk — Wed, 08 Oct 2008 07:25:00 GMT

Keithuk (10/8/2008)

Takeshi (10/7/2008)

Thanks. Yeah, about in andeavb forum. That is my first post about RGB values. But then i think, an encryption program maybe can to process an image folder not just an image file. It means can be process image file in a folder all at once. Maybe 2, 5, or 10 image file. So, how can i load image files all at once in my form to get the RGB ??

So, i means, the user just click the command button to open the open dialog command, choose an image file or folder contains image files, then application put the choosen file or folder to a list view. Then application can process all files in list view all at once.

Or, maybe you have some ideas or trick for me to solve my problem. Thank u so much. GBU.

Now your increasing your intial statement with multiple images. I haven't had a chance to check my records yet. This question as been asked before do a search on VBforums.

Watch your double posts Takeshi.

RE: RGB value

Keithuk — Wed, 08 Oct 2008 07:23:54 GMT

Takeshi (10/7/2008)

Or, maybe you have some ideas or trick for me to solve my problem. Thank u so much. GBU.

Now your increasing your intial statement with multiple images. I haven't had a chance to check my records yet. This question as been asked before do a search on VBforums.

Watch you double posts Takeshi.

RE: RGB value

Takeshi — Tue, 07 Oct 2008 15:12:13 GMT

Or, maybe you have some ideas or trick for me to solve my problem. Thank u so much. GBU.

RE: RGB value

Takeshi — Tue, 07 Oct 2008 15:10:14 GMT

Or, maybe you have some ideas or trick for me to solve my problem. Thank u so much. GBU.

RE: RGB value

Keithuk — Tue, 07 Oct 2008 13:25:14 GMT

Takeshi (10/7/2008)

I don't know.. But if it load to my image box, like you say, would you still teach me how get the rgb values ? I'm really beginner in VB's language. :p Thanks b4.

So you have sorted loading your image then? You didn't in your first post. I've just read your post in AndreaVB and you don't mension about unable to load the image.

I don't have VB at work so I will have to do a few checks when I get home. There are API calls GetPixel and others I think for getting the colour at the mouse position.

RE: RGB value

Takeshi — Tue, 07 Oct 2008 12:38:29 GMT

I don't know.. But if it load to my image box, like you say, would you still teach me how get the rgb values ? I'm really beginner in VB's language. :p Thanks b4.

RE: RGB value

Takeshi — Tue, 07 Oct 2008 12:34:16 GMT

I don't know.. But if it load to my image box, like you say, would you still teach me how get the rgb values ? I'm really beginner in VB's language. :p Thanks b4.

RE: RGB value

Takeshi — Tue, 07 Oct 2008 12:32:13 GMT

I don't know.. But if it load to my image box, like you say, would you still teach me how get the rgb values ? I'm really beginner in VB's language. :p Thanks b4.

RE: RGB value

Keithuk — Mon, 06 Oct 2008 17:07:44 GMT

Welcome to A1vbcode Takeshi.

Takeshi (10/6/2008)

But, that image file not open or show in my form, just get the RGB values.

But if you can't load the image into a PictureBox or ImageBox how are you going to do this?

Why won't it load? What code are you using?

Picture1.Picture = LoadPicture(App.Path & "\your.jpg")

RGB value

Takeshi — Mon, 06 Oct 2008 15:45:49 GMT

Hi ! I'm a new member in this forum. Could any one help me, how to get RGB values at every pixel from a image file ? But, that image file not open or show in my form, just get the RGB values. Then, i can change that RGB values and create a new image file. Honestly, i'm working an image encryption. Please, help me.... it's confused me so much. Thanks. GBU

NB : I'm sorry if my English is bad