LECCION 28

2015 Lección 28 Visual Basic: La creación de elipses y círculos

28.1 Dibujo Elipse

Hemos aprendido cómo dibujar rectángulos con diferentes estilos de línea en Visual Basic 2015, en la lección anterior. Ahora vamos a aprender a dibujar elipse y circle.First de todo lo que necesitamos para entender el principio detrás de dibujar una elipse en Visual Basic 2015. 

La estructura básica de la mayoría de las formas es un rectángulo, elipse no es una excepción. Elipse es una forma oval que está delimitado por un rectángulo, como se muestra en la Figura 28.1

Figura 28.1

Por lo tanto, tenemos que crear un objeto Rectangle antes de que podamos dibujar una elipse. Este rectángulo sirve como un rectángulo delimitador de la elipse. Sin embargo, sigue siendo necesario utilizar el método drawEllipse para terminar el trabajo. Por otro lado, también podemos dibujar una elipse con el método drawEllipse sin crear primero un rectángulo.

 Les mostraremos tanto ways.In el primer método, digamos que usted ha creado un objeto rectangular conocido como myRectangle y un objeto pluma como myPen, a continuación, se puede dibujar una elipse mediante la siguiente instrucción:

myGraphics.DrawEllipse (myPen, myRectangle)

* Suponga que tiene también ya creado el objeto Graphics myGraphics.

Ejemplo 28.1 (a)

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

Dim myPen Como Pen
myPen = nueva pluma (Drawing.Color.DarkTurquoise, 5)

myGraphics tenues como gráficos = Me.CreateGraphics

Dim myRectangle Como nuevo rectángulo

myRectangle.X = 40
myRectangle.Y = 30
myRectangle.Width = 200
myRectangle.Height = 100

myGraphics.DrawEllipse (myPen, myRectangle)
End Sub

La imagen de salida se muestra en la Figura 28.2

vb2013_figure27.1

 Figura 28.2

El segundo método utiliza el método drawEllipse sin crear un objeto de rectángulo. Offcourse usted todavía tiene que crear los gráficos y los objetos de la pluma. La sintaxis es la siguiente:

myGraphics.DrawEllipse (myPen, X, Y, anchura, altura)

Donde (X, Y) son las coordenadas de la esquina superior izquierda del rectángulo delimitador, el ancho es el ancho de la elipse y la altura es la altura de la elipse.

Ejemplo 28.1 (b)

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

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

myGraphics tenues como gráficos = Me.CreateGraphics

myGraphics.DrawEllipse (myPen, 40, 30, 200, 100)

End Sub





28.2 Dibujar un círculo

Después de haber aprendido cómo dibujar una elipse, dibujando un círculo se vuelve muy sencillo. Utilizamos exactamente los mismos métodos utilizados en la sección anterior, pero modificar la anchura y altura de modo que sean de los mismos valores.

Los siguientes ejemplos se basan en el mismo círculo.

Ejemplo 28.2 (a)

Dim myPen Como Pen

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

myGraphics tenues como gráficos = Me.CreateGraphics

Dim myRectangle Como nuevo rectángulo

myRectangle.X = 90
myRectangle.Y = 30
myRectangle.Width = 100
myRectangle.Height = 100

myGraphics.DrawEllipse (myPen, myRectangle)

Ejemplo 28.2 (b)

Dim myPen Como Pen

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

myGraphics tenues como gráficos = Me.CreateGraphics

myGraphics.DrawEllipse (myPen, 90, 30, 100, 100)

La imagen de salida se muestra en la Figura 27.3

vb2013_figure27.2

Figura 28.3