lopezatienza.es

Graphics 'Especifica el entorno en el ke se va a dibujar el dibujo

Pen 'Que tipo de trazo se utilizara para dibujar

Brush 'Tipo de color y relleno que vamos a usar

Dim grafico As Graphics = me.graphics

Dim lapiz As New Pen(color, grosor)

Dim rectangulo As New Rectangle(x1,y1,x2,y2) 'de arriba izquierda a abajoderecha

Metodos:

Grafico.     DrawElipse(New Pen(color.COLORELEGIDO, grosor),rectangulo)

DrawRectangle(Pen, New Rectangle(x1,y1,x2,y2))

DrawCurve(Pen,Point)

.Fill para el relleno

e.graphics.DrawBezier(color,x1,y1,x2,y2,x3,y3,...)

PARA RELLENAR:

Dim puntos As New Drawing2D.GraphicsPath

puntos.AddArc(x1,y1,x2,y2,x3,y3,...)

e.graphics.FillPath(color,puntos)

e.graphics.DrawPath(lapiz, puntos)

e.graphics.drawPie(lapiz,x1,y1,x2,y2)