Programación VB: utilice el método del círculo para dibujar círculos concéntricos generados aleatoriamente de diferentes colores. El radio máximo del círculo no supera los 1000.
Instrucciones
Para rellenar un círculo, utilice las propiedades FillColor y FillStyle del objeto al que pertenece el círculo o elipse. Sólo se pueden rellenar formas cerradas. Las formas cerradas incluyen círculos, elipses o sectores.
Al dibujar un círculo o elipse parcial, si el inicio es negativo, Circle dibuja un radio para comenzar y procesa el ángulo como positivo; si el final es negativo, Circle dibuja un radio para finalizar y procesa el ángulo como positivo; . El método del círculo siempre dibuja en el sentido contrario a las agujas del reloj (positivo).
El grosor del segmento de línea al dibujar un círculo, elipse o arco depende del valor de la propiedad DrawWidth. El método para dibujar un círculo en el fondo depende de los valores de las propiedades DrawMode y DrawStyle.
Al dibujar un sector con un ángulo de 0, dibuje un radio (dibuje un segmento de línea horizontal a la derecha. En este momento, especifique un pequeño valor negativo para comenzar, no proporcione 0).
Puedes omitir un parámetro en medio de la sintaxis, pero no puedes omitir la coma que separa los parámetros. La coma después del último parámetro que especifique es opcional.
Cuando se ejecuta Circle, las propiedades CurrentX y CurrentY se establecen en el punto central mediante parámetros.
Este método no se puede utilizar en el bloque de instrucciones With.
------------------------------------------- ----- -------------------------------------
Círculo ejemplo de método
Este ejemplo utiliza el método Círculo para dibujar muchos círculos concéntricos en el centro del formulario. Para ejecutar este ejemplo, coloque este código en la sección General del formulario. Presione F5 y haga clic en el formulario.
Sub Form_Click()
Dim CX, CY, Radius, Limit ' Declarar variable.
ScaleMode = 3 ' en píxeles.
CX = Ancho de escala / 2' X posición.
CY = Altura de escala / 2' Posición Y.
Si CX gt; CY Entonces Límite = CY De lo contrario Límite = CX
Para Radio = 0 Para limitar 'Radio.
Círculo (CX, CY), Radio, RGB (Rnd * 255, Rnd * 255, Rnd * 255)
Siguiente radio
End Sub
--------------------------------------------- --- ----------------------------------
Aplica a:
Objeto Formulario, colección Formularios
Control PictureBox
Objeto PropertyPage
Objeto UserControl