Hacer un circulo o cuadrado con relleno

Hola,
mira si te vael la siguente rutina:

Private Sub Dibuja_recuadro(ByVal MiImg As PictureBox, _
ByVal Color_Borde As Pen, _
ByVal Color_Fondo As Brush, _
ByVal x As Integer, _
ByVal y As Integer, _
ByVal Ancho As Integer, _
ByVal Alto As Integer)
Dim gr As Graphics = MiImg.CreateGraphics
gr.DrawRectangle(Color_Borde, x, y, Ancho, Alto)
gr.FillRectangle(Color_Fondo, x + 1, y + 1, Ancho - 1, Alto - 1)
End Sub

Lo que hace es dibujar un recuadro en el PictureBox "MiImg", con el color
del borde "Color_Borde" y un color de fondo "Color_Fondo", te lo dibuja el la
posición x, y y con el ancho y el Alto que le definas. Si lo que quieres es
dibujar un circulo usa DrawEllipse y FillEllipse en vez de DrawRectangle y
FillRectangle.

Saludos
Martín Rodriguez
Web: http://www.mr-factory.com



"GUILLERMO" wrote:

Hola a todos.

Me gustaria saber como poder hacer un circulo o rectangulo con relleno
de un color sobre una imagen que tengo.

Depediendo de la posicion en la imagen poder dibujar un circulo o un
cuadrado.
Lo estoy haciendo la aplicacion VB.NET 2003

Un saludo.
Gracias