dibujar con el mouse

[sonyweb]

hola foreros!
pues para ver si alguien sabe como hacer para dibujar sobre una imagen en un picturebox usando el mouse y luego poder guardar la imagen nueva
no serian figuras geometricas, sino al estilo del lapiz del paint

bueno a ver si alquien puede ayudarme

gracias

[David]

Iniciado por sonyweb

hola foreros!
pues para ver si alguien sabe como hacer para dibujar sobre una imagen en un picturebox usando el mouse y luego poder guardar la imagen nueva
no serian figuras geometricas, sino al estilo del lapiz del paint

bueno a ver si alquien puede ayudarme

gracias

Si quieres que se dibuje cuando se haga click y se arrastre aquí está el código:

Código:

Private Sub Command1_Click()
SavePicture Picture1.Image, App.Path & "\Fondo.bmp"
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.BackColor = vbWhite
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Picture1.PSet (X, Y)
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Picture1.Line -(X, Y)
End Sub

Con un boton para Guardar y el Picture....

[sonyweb]

'chas gracias david =)

[David]

Iniciado por sonyweb

'chas gracias david =)

De nada -)