PINTAR, DIBUJAR EN UN PICTUREBOX
Hola a tod@s.
Hoy os triago como pintar dentro de un picturebox, ¿para que?. pues bien,quizas lo puedas utilizar para pintar dibujitos o por si necesitas crear una firma para tu programa. En el ejemplo de hoy cuando terminemos la debe quedarnos algo asi, yo ya lo tengo pintadito todo XD.
Para ello vamos a utilizar Graphics, un Balanceador “Swich”, un lapiz “Pen” , y 2dGraphicsPath.
Lo primero que debemos hacer es crear un picturebox en nuestro formulario, y declarar las variables principales que vamos a utilizar en esta mini aplicacion fuera del Load, de tal manera que seran accesibles en todo en Form. La cosa quedaria asi.
|
1 2 3 4 5 6 |
Dim PuedoPintar As Boolean = False Dim p As New Pen(Brushes.Black, 4.9) Dim g As Graphics Dim ph As New Drawing2D.GraphicsPath(Drawing2D.FillMode.Alternate) Dim Swich As Boolean = False Dim x1, y1, x2, y2 |
Ahora dentro del Load lo que vamos a hacer es crear un Bitmap del mismo tamaño que el picturebox y se lo asignamos, y justo despues le decimos a Graphics que es lo que puede pintar, El Load quedaria de la siguiente manera:
|
1 2 3 4 5 |
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim bmp As New Bitmap(Me.PictureBox1.Size.Width, Me.PictureBox1.Size.Height) Me.PictureBox1.Image = bmp g = Graphics.FromImage(Me.PictureBox1.Image) End Sub |
A Continuacion vamos a utilizar los eventos Picturebox.MouseDown, Picturebox.MouseUP, Picturebox.MouseMove , para realizar los trazados dentro del picturebox,
En el Evento de MouseDown, lo que haremos sera decirle que PuedoPintar pasara a true para que empieze a recoger los datos y que pueda empezar a pintar,
|
1 2 3 |
Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown PuedoPintar = True End Sub |
En el Evento MouseUp , PuedoPintar pasara a False para que no Pinte y tanto el Swich como El GraphicsPath se liberen y queden para empezar de cero.
|
1 2 3 4 5 |
Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp PuedoPintar = False Swich = False ph.Reset() End Sub |
Y el mas importante el MouseMove, Utilizaremos el Swich para ir almacenando las posiciones del raton en las variables X1,Y1,X2,Y2, hacen referencia a si swich = false y Swich = True, cuando este ultimo esta completado, ya tenemos punto origen y punto final,por lo cual podemos realizar el trazado. la cosa queda asi.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove If PuedoPintar = True Then If Swich = False Then x1 = e.X y1 = e.Y Swich = True Else x2 = e.X y2 = e.Y ph.AddLine(x1, y1, x2, y2) g.DrawPath(p, ph) Swich = False End If End If g.Flush() Me.PictureBox1.Refresh() End Sub |
Como veis no es tan complicado, ahora te toca a ti , realizar los cambios de color del pen,Tamaños… que si quereis lo haremos en un post mas adelante, ahora todo el codigo seguido.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
Dim PuedoPintar As Boolean = False Dim p As New Pen(Brushes.Black, 4.9) Dim g As Graphics Dim ph As New Drawing2D.GraphicsPath(Drawing2D.FillMode.Alternate) Dim Swich As Boolean = False Dim x1, y1, x2, y2 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim bmp As New Bitmap(Me.PictureBox1.Size.Width, Me.PictureBox1.Size.Height) Me.PictureBox1.Image = bmp g = Graphics.FromImage(Me.PictureBox1.Image) End Sub Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown PuedoPintar = True End Sub Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp PuedoPintar = False Swich = False ph.Reset() End Sub Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove If PuedoPintar = True Then If Swich = False Then x1 = e.X y1 = e.Y Swich = True Else x2 = e.X y2 = e.Y ph.AddLine(x1, y1, x2, y2) g.DrawPath(p, ph) Swich = False End If End If g.Flush() Me.PictureBox1.Refresh() End Sub |
Como siempre….
Si te gustó , si te sirvio, si te ayudó, Comenta, comparte esta pagina,y o registrate
Quizas te interese… Convertir imagen a BASE64 aqui
