Relleno de polígonos en Visual Basic .NET 2008 (ejemplo 3)

Microsoft Student Tech Club: Universidad Libre

Este es el resultado

El código es el siguiente

OJO, debe importar una librería primero

Imports System.Drawing.Drawing2D

Y este es el código que va dentro del paint

'Necesario para los gráficos GDI
Dim objGrafico As Graphics
objGrafico = e.Graphics

'Crear los puntos (vértices) del polígono
Dim punto1 As New Point(60, 100)
Dim punto2 As New Point(20, 140)
Dim punto3 As New Point(20, 180)
Dim punto4 As New Point(60, 220)
Dim punto5 As New Point(100, 220)
Dim punto6 As New Point(140, 180)
Dim punto7 As New Point(140, 140)
Dim punto8 As New Point(100, 100)
Dim objPuntos As Point() = {punto1, punto2, punto3, punto4, punto5, punto6, punto7, punto8}

'Relleno
Dim objCepillo As New PathGradientBrush(objPuntos)
objCepillo.CenterColor = Color.Blue
objCepillo.SurroundColors = New Color() {Color.Violet, Color.Violet}

'Dibujar el polígono con los siguientes parámetros:
'Relleno del polígono
'Vértices del polígono
objGrafico.FillPolygon(objCepillo, objPuntos)

Volver al Inicio

Célula Microsoft. Universidad Libre