'mi objeto para dibujar
Private g As Graphics
Public Sub DrawMyLine()
'creando el objeto
g = PicFondo.CreateGraphics()
g.Clear(Color.White)
'ahora dibujando la lina
g.DrawLine(myLine.Pincel, myLine.pIniX, myLine.pIniY, myLine.pFinX, myLine.pFinY)
End Sub
Private Sub CmdDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdDraw.Click
MsgBox("hacer un click en el Picture, mantenerlo presionado y mover el mouse")
dibujar = True
'creando el objeto a usar
myLine = New Linea(0, 0, 0, 0)
End Sub
'----------------------------------------------
'Con los tres modos del mouse se dibuja la linea
Private Sub PicFondo_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PicFondo.MouseDown
If dibujar Then
If Not dibujando Then
myLine.pIniX = e.X
myLine.pIniY = e.Y
'ya se hizo el primer punto
dibujando = True
End If
End If
End Sub
Private Sub PicFondo_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PicFondo.MouseMove
If dibujando Then
myLine.pFinX = e.X
myLine.pFinY = e.Y
Me.DrawMyLine()
End If
End Sub
Private Sub PicFondo_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PicFondo.MouseUp
'se termino de dibujar la linea
dibujando = False
'ahora mover la linea
Me.Panel1.Visible = True
End Sub
'--------------------------------------------------
'----------------------------------------------
'ahora se lo va amover
Private Sub CmdMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdMove.Click
'ya no crear otra linea
Me.dibujar = False
'CmdDraw.Enabled = False
'cambiar el ancho
Try
If (TxtAncho.Text <> "") Then
myLine.Ancho = Integer.Parse(TxtAncho.Text)
End If
Catch er As Exception
MsgBox("no ingreso un ancho correcto, se tomara el anterior")
End Try
'mandano un mensaje
MsgBox("mover la linea con el teclado")
'mover
Me.mover = True
'mandando el foco
Me.TxtKeyCode.Focus()
End Sub
Private Sub TxtKeyCode_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtKeyCode.KeyDown
'si se puede mover el objeto
If Me.mover Then
Select Case e.KeyCode
Case Keys.Up
myLine.Move("U")
Me.DrawMyLine()
Case Keys.Down
myLine.Move("D")
Me.DrawMyLine()
Case Keys.Left
myLine.Move("L")
Me.DrawMyLine()
Case Keys.Right
myLine.Move("R")
Me.DrawMyLine()
End Select
End If
End Sub
'------------------------------------------------------
End Class