Ver Mensaje Individual
  #1 (permalink)  
Antiguo 17/12/2006, 15:12
rositafresita
 
Fecha de Ingreso: octubre-2005
Mensajes: 56
Antigüedad: 18 años, 6 meses
Puntos: 0
Exclamación Dibujar a mano alzada dentro de PictureBox

hola a todos, el problema que tengo es que quiero dibujar a mano alzada sobre una imagen que está en un picturebox, el problema es que cuando doy clic con el ratoy y sin soltar empiezo a dibujar, los trazos los hace fuera de la imagen, en la esquina superior izquierda y lo que quiero es que solo dibuje dentro de la imagen. El código que utilizo es el siguiente:

Private Sub Picture7_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
CX = X
CY = Y
DrawMode = vbNotXorPen
End If
End Sub

Private Sub Picture7_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Line -(X, Y)
End If
End Sub
Gracias a quien me pueda ayudar