Cita:
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....