LECCION 31

Lección 31 visuales: Rellenar formas con Color

En las lecciones anteriores, hemos aprendido cómo dibujar rectángulo, elipse, círculo, polígono y el pastel con sólo contornos. En esta lección, vamos a mostrarle cómo llenar las formas con colores, formas o simplemente sólidos en Basic 2015. Tres métodos visuales que se utilizan para llenar formas son FillRectangle, FillEllipse, FillPolygon y FillPie.In fin de llenar las formas anteriores con color, tenemos que crear el objeto del cepillo con la siguiente sintaxis:

myBrush = Nueva SolidBrush (Color.myColor)

Donde myColor puede ser de cualquier color como el rojo, azul, amarillo y más. Usted no tiene que preocuparse acerca de los nombres de los colores debido a que el IntelliSense mostrará los colores y entrar en el período después de la palabra clave de color.

 

31.1 de relleno y dibujo un rectángulo con color

En Visual Basic 2015, la sintaxis para llenar un rectángulo con el color definido por el objeto cepillo es: myGraphics.FillRectangle (myBrush, 0, 0, 150, 150)

ejemplo 31.1

Private Sub BtnDraw_Click (remitente como objeto, e como EventArgs) Maneja BtnDraw.ClickDim myPen Como Pen

Dim myBrush Como Cepillo

myGraphics tenues como gráficos = = Me.CreateGraphicsmyPen nueva pluma (Drawing.Color.Blue, 5)

myBrush = Nueva SolidBrush (Color.Coral)

myGraphics.DrawRectangle (myPen, 65, 50, 150, 150)

myGraphics.FillRectangle (myBrush, 65, 50, 150, 150) End Sub

 

La salida es como se muestra en la Figura 31.1

31.1 vb2013_figure30.1Figure

* Tenga en cuenta que si se omite la línea myGraphics.DrawRectangle (myPen, 65, 50, 150, 150), obtendrá un rectángulo sólido sin contorno, como se muestra en la Figura 31.2

31.2 vb2013_figure30.2Figure

31.2 de relleno y dibujo de una elipse con color

La sintaxis para llenar una elipse con el color definido por el objeto cepillo es:

myGraphics.FillEllipse (myBrush, 0, 0, 150, 150)

ejemplo 31.2

Private Sub BtnDraw_Click (remitente como objeto, e como EventArgs) Maneja BtnDraw.ClickDim myPen Como Pen

Dim myBrush Como Cepillo

myGraphics tenues como gráficos = = Me.CreateGraphicsmyPen nueva pluma (Drawing.Color.Blue, 5)

myBrush = Nueva SolidBrush (Color.Coral)

myGraphics.DrawEllipse (myPen, 50, 50, 180, 100)

myGraphics.FillEllipse (myBrush, 50, 50, 180, 100)

End Sub

La interfaz de salida es como se muestra en la Figura 31.3

vb2013_figure30.3

 Figura 31.3

* Si se omite el myGraphics.DrawEllipse línea (myPen, 50, 50, 180, 100), obtendrá una elipse sólida sin contorno.

31.3 de relleno y dibujo un polígono de color

La sintaxis para llenar un polígono con el color definido por el objeto cepillo es:

myGraphics.FillPolygon (myBrush, myPoints)

ejemplo 31.3

Private Sub BtnDraw_Click (remitente como objeto, e como EventArgs) Maneja BtnDraw.Click

Dim myPen Como Pen

Dim myBrush Como Cepillo

Dim a As New Point (70, 10)

Dim B Como Nuevo punto (170, 50)

Dim C como nuevo punto (200, 150)

Dim D Como Nuevo punto (140, 200)

Dim myPoints Como Point () = {A, B, C, D}

myPen = nueva pluma (Drawing.Color.Blue, 5)

myBrush = Nueva SolidBrush (Color.Coral)

myGraphics tenues como gráficos = Me.CreateGraphics

myGraphics.DrawPolygon (myPen, myPoints)

myGraphics.FillPolygon (myBrush, myPoints)

End Sub

La interfaz de salida es como se muestra en la Figura 31.4

31.4 vb2013_figure30.4Figure

* Si se omite la línea myGraphics drawPolygon (myPen, myPoints), obtendrá un polígono sin contorno

 

31.4 de relleno y dibujo una empanada

La sintaxis para llenar una empanada con el color definido por el objeto cepillo es:

myGraphics.FillPie (myBrush, X, Y, anchura, altura, startAngle, SweepAngle)

ejemplo 31.4

Private Sub BtnDraw_Click (remitente como objeto, e como EventArgs) Maneja BtnDraw.Click

Dim myPen Como Pen

Dim myBrush Como Cepillo

myGraphics tenues como gráficos = Me.CreateGraphics

myPen = nueva pluma (Drawing.Color.Blue, 5)

myBrush = Nueva SolidBrush (Color.Coral)

myGraphics.DrawPie (myPen, 30, 40, 150, 150, 0, 60)

myGraphics.FillPie (myBrush, 30, 40, 150, 150, 0, 60)

End Sub

La salida es como se muestra en la Figura 31.5

vb2013_figure30.5

 Figura 31.5