using the picture box to paint

can i use the picture box to paint with a picture as a brush?
what is 'paintpicture' and how do i use it, and generally how do i draw on a picture box.

Boaz zemeR

To use a picture as a brush, use the BitBlt API and copy it to X and Y whenever the mouse is down.

To use the PaintPicture method, create a Form with a PictureBox and a CommandButton. Make sure that the ScaleMode property of everything is set to Pixel, and also make sure that there is a Picture in the PictureBox.

Now, add this code to the CommandButton

Private Sub Command1_Click()
   Form1.PaintPicture Picture1.Picture, 0, 0, 100, 100
End Sub

how would you blit an image to a picbox(not an image control, but the contents of a picbox) like, you were paintihng it?

I tried this

[general declarations]
Dim hello As Long
Dim hello2 As Long
Dim this As POINTAPI

______________________________

Private Sub Picture1_Click()

'this.X = Picture1.CurrentX
'this.Y = Picture1.CurrentY

BitBlt Picture1.hdc, hello, hello2, 9, 9, Picture2.hdc, 0, 0, vbSrcCopy



End Sub
________________________________

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
hello = this.X
hello2 = this.Y

this.X = Picture1.CurrentX
this.Y = Picture1.CurrentY

End Sub

I tried this, but it blits it to 0,0
I tried some other things too with no luck
please help
thanks.

It copies to 0,0?? Where do you want it to copy to? Where ever the Mouse is when it is clicked?

yep. I want it to draw while the mouse is down, and draw whereever the mouse is dragged...
I can take care of that later.. i just need to know why it keeps copying to 0,0

[ef2k]

to bzemer: i was working on the exact same thing, a paint program, well i still am, but anyways
here's the code i used:

Private Type POINTAPI
x As Double
y As Double
End Type
Dim point1 As POINTAPI
Dim point2 As POINTAPI
Dim pressed as Boolean

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

pressed = True
point1.x = x
point1.y = y

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If pressed = True then
point2 = point1
point1.x = x
point1.y = y
Picture1.Line (point1.x, point1.y)-(point2.x, point2.y)
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
pressed = False
End Sub