Painting a picture box

[xensoft]

I've got a module that scans a given pixel of screen and returns it's RGB color.

Now what I want to do is to be able to change the pixel color of a given pixel on the screen.

So lets say I have 2 Picture boxes A and B. I can scan PicBoxA's RGB colors for each pixel. What I need to know is how I could replicate that same pixel in PicBox B.

Basically, I want to know how to paint a picture box's pixels different colors.

[SteveCRM]

Im not sure how, but dennis is making a paint program and might be able to help you

Try the following:

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long

Private Sub Command1_Click()

    'Loop through each Pixel
    For X = 0 To Picture1.Width
        For Y = 1 To Picture1.Height
            'Get the Pixel from Picture1
            crColour = GetPixel(Picture1.hdc, X, Y)

            '<--Do Pixel manipulation here-->

            'Draw the pixel on Picture2
            SetPixel Picture2.hdc, X, Y, crColor
        Next Y
    Next X
    
End Sub

You can use SetPixel or BitBlt.

and if you want to exactly dupe the picture, you can use 2 for loops, one inside the other and use GetPixel and SetPixel to get PicA's pixel and set PicB's pixel.


here I just wrote some sample code....

you need 2 picture boxes and a command button.
and be warned this code is a little slow!

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long

Private Sub Command1_Click()

Dim i As Long
Dim j As Long
Dim dPixel As Long

For i = 0 To Picture1.Width
 For j = 0 To Picture1.Height
  dPixel = GetPixel(Picture1.hdc, i, j)
  SetPixel Picture2.hdc, i, j, dPixel
 Next
Next


End Sub

Private Sub Form_Load()

 Me.ScaleMode = vbPixels
 Picture1.ScaleMode = vbPixels
 Picture2.ScaleMode = vbPixels

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
 If Button = 1 Then
  SetPixel Picture1.hdc, X, Y, vbRed
  SetPixel Picture1.hdc, X + 1, Y + 1, vbGreen
  SetPixel Picture1.hdc, X + 2, Y + 2, vbYellow
 End If

End Sub

it took me ten minutes to write that!!!!!
it didnt seem like that long..... time flies when your having fun (writing code)

[Fox]

Indeed, hours become minutes when coding (Have experience in that )