Problema de dibujo de círculos VB

Problema de dibujo de círculos VB

Cree un proyecto, coloque un PictureBox en la parte superior de la ventana, el tamaño es relativamente grande y establezca su propiedad ScaleMode en 3.

Luego coloque un botón y agregue el siguiente código:

'Este código demuestra cómo usar el método Círculo de VB para dibujar varios círculos.

Form1.Picture1.Circle (60, 60), 40, vbRed 'Dibuja un círculo rojo con centro (60, 60) y radio 40 (hueco por defecto)

Form1. Picture1.FillStyle = 0 'Establece el modo de relleno en sólido

Form1.Picture1.FillColor = vbBlue 'Establece el color de relleno en azul

Form1.Picture1.Circle (190, 60) , 40, vbRed 'Lo que se dibuja es un círculo relleno de azul sólido

Form1.Picture1.DrawWidth = 3 'Establece el ancho del borde en 3

Form1.Picture1. (60, 190), 40, vbRed 'El grosor del borde del círculo dibujado esta vez es 3

Form1.Picture1.DrawStyle = 5 'Establece que el borde sea invisible

Form1 Picture1.FillColor = vbRed 'Establece el color de relleno en rojo

Form1.Picture1.Circle (190, 190), 40 'Esta vez dibuja un círculo sin bordes con un color de relleno rojo

Entonces pruébalo y deberías entenderlo comparando los comentarios.

————————————————

PD: Evaluación del método dado por wys_sans arriba:

Método 1 no se puede llamar dibujar un círculo en absoluto;

Método 2: Obviamente Circle puede dibujar directamente un círculo sólido, pero esta persona no lo sabe;

Método 3: Eficiencia Lo peor método con resultados extremadamente bajos. ¿Con respecto al problema de dibujar coordenadas circulares en vb?

¿Durante el proceso de escritura o durante la ejecución del programa?

Varios eventos del mouse durante el proceso de ejecución pueden leer x, y

Durante el proceso de escritura, las coordenadas se pueden cambiar asignando valores directamente al atributo izquierdo del elemento de control. Ansys Workbench dibuja un círculo. Pregunta

Cuando colocas el mouse en el origen de las coordenadas, cambiará a la forma de un cuadro. Al mismo tiempo, al dibujar un círculo, aparecerá la letra P. Se mostrará para confirmar que el centro del círculo está en el origen de las coordenadas.

Haga clic derecho en vb para dibujar un círculo

Private Sub Form_MouseMove(Botón como entero, Mayús como entero, X como único, Y como único)

Si Botón = 1 Luego 'Botón izquierdo

Finalizar si

Si Botón = 2 Luego 'Botón derecho

Finalizar si

Finalizar Sub vb dibuja un círculo en la imagen ri

Private Sub Command1_Click()

Dim x, y, r

x = InputBox("Ingresa la coordenada del centro del círculo x", "Entrada de argumento", 30)

y = InputBox("Ingrese la coordenada central y", "Entrada de argumento", 30)

r = InputBox("Por favor ingrese el radio r", "Argument Enter ", 15)

Imagen1.ScaleMode = 3

Imagen1.Circle (x, y), r, , 0, 0

End Sub Dibuja un círculo Pregunta, por favor responde

Puedes intentar usar el método de inducción primero

Dibuja cualquier círculo en el plano. Estos círculos pueden dividir el plano en. la mayoría de las 2 partes

Dibuja 2 círculos cualesquiera en el plano, estos círculos pueden dividir el avión en hasta 4 partes

Dibuja 3 círculos cualesquiera en el plano, estos círculos pueden dividir el plano en hasta 8 partes

Dibuja 4 círculos cualesquiera en el avión. Estos círculos pueden dividir el avión en hasta 16 partes

.....