WHY DOESNT THIS WORK

vb certified · #1 (**permalink**) July 31st, 2005, 07:08 PM

Dim pixelColor As Color
        Dim x As Integer
        Dim y As Integer

        Do
            pixelColor = myBitmap.GetPixel(x, y)
            Label1.BackColor = pixelColor
            If pixelColor = Color.Red Then
                MsgBox("YOU FOUND COLOR AT " & x & " " & y & "!")
                Exit Do
            End If
            x += 1
            If x = myBitmap.Width Then
                x = 0
                y += 1
            End If
        Loop Until y = myBitmap.Height
the loop works very well except the code has a problem with the
If pixelColor = Color.Red Then
                MsgBox("YOU FOUND COLOR AT " & x & " " & y & "!")
                Exit Do
            End If
it has trouble with the first line. I cant remember what i can use to check wheter a color matches a color. EX
IF color1 = color2 then
dosomthing
end if
Any help is wonderful help

~~~~~~~~~~~~~~~~~~~~~
I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter.

katsarosj · #2 (**permalink**) August 1st, 2005, 12:07 AM

If pixelColor.Equals(Color.Red) Then
MsgBox("YOU FOUND COLOR AT " & x & " " & y & "!")
Exit Do
End If

vb certified · #3 (**permalink**) August 1st, 2005, 01:21 PM

ok i tried that like this
Dim pic as new bitmap("C:\test.bmp")
'test.bmp is a 50x50 full black picture
DIm pixelcolor as color
pixelcolor = pic.getpixel(10,10)
'should be black
If pixelcolor.equals(color.black) then
messagebox.show("YAY")
End If

~~~~~~~~~~~~~~~~~~~~~
I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter.

katsarosj · #4 (**permalink**) August 1st, 2005, 04:16 PM

You are probably better off to use the RGB value than a named color. Try this, it worked for me:

If pixelcolor.Equals(Color.FromArgb(0, 0, 0)) Then
MessageBox.Show("YAY")
End If

vb certified · #5 (**permalink**) August 1st, 2005, 04:53 PM

TY TY TY this forum is the best place on the net for code q's!!! IT WOOORRRRKKSS thanks again.

Wrox Rocks (say that 10x fast)

~~~~~~~~~~~~~~~~~~~~~
I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter. I'm sorry for having a rude signature Peter.

katsarosj · #6 (**permalink**) August 1st, 2005, 11:08 PM

Your welcome. Glad I could help.

J

Need to download code?

Navigation