Rellenar rutas gráficas en Visual Basic .NET 2008

Microsoft Student Tech Club: Universidad Libre

Este es el resultado

Este es el código

OJO, debe importar una librería primero

Imports System.Drawing.Drawing2D

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

'Create solid brush.
Dim redBrush As New SolidBrush(Color.Purple)

'Una serie de puntos que forman un polígono
Dim objPuntos(8) As Point
objPuntos(0) = New Point(50, 30)
objPuntos(1) = New Point(90, 10)
objPuntos(2) = New Point(120, 40)
objPuntos(3) = New Point(190, 90)
objPuntos(4) = New Point(150, 130)
objPuntos(5) = New Point(100, 170)
objPuntos(6) = New Point(60, 200)
objPuntos(7) = New Point(30, 240)

'Crea el camino a ser rellenado
Dim graphPath As New GraphicsPath
graphPath.AddPolygon(objPuntos)

'Llena el polígono
e.Graphics.FillPath(redBrush, graphPath)

Volver al Inicio

Célula Microsoft. Universidad Libre