Archivos de la categoría ‘Graficos Visual Basic.Net’

Mientras tengo un pequeño descanso voy a escribir este articulo que un amigo me pregunto como podia dibujar figuras con el mouse en visual basic.net, asi que aqui les dejo este codigo con el cual pueden dibujar rectangulos con el mouse y de ahi pueden hacer muchas cosas mas.

‘Creamos nuestro rectangulo
Dim SelectRect As Rectangle = New Rectangle()
‘Nuestros puntos que nos ayudaran para el dibujo del rectangulo
Dim ps As Point = New Point()
Dim pe As Point = New Point()

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
‘Obtenemos las cordenadas del puntero del mouse

SelectRect.Width = 0
SelectRect.Height = 0
SelectRect.X = e.X
SelectRect.Y = e.Y

ps.X = e.X
ps.Y = e.Y
pe = ps
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
‘Si se activa el Boton izquierdo del mouse
If (e.Button = Windows.Forms.MouseButtons.Left) Then

‘Dibujamos el rectangulo

ControlPaint.DrawReversibleFrame(Me.RectangleToScreen(SelectRect), Color.Black, FrameStyle.Dashed)

SelectRect.Width = e.X – SelectRect.X
SelectRect.Height = e.Y – SelectRect.Y

ControlPaint.DrawReversibleFrame(Me.RectangleToScreen(SelectRect), Color.Black, FrameStyle.Dashed)

End If

End Sub

Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp

Dim g As Graphics = Me.CreateGraphics()
Dim p As Pen = New Pen(Color.Blue, 2)

ControlPaint.DrawReversibleFrame(Me.RectangleToScreen(SelectRect), Color.Black, FrameStyle.Dashed)

g.DrawRectangle(p, SelectRect)
g.Dispose()
End Sub

Bueno espero que les sirva esta pequeño codigo.
Saludos!!

Anuncios