Cómo usar VB para realizar: use el mouse para arrastrar y dibujar un círculo sólido y varios círculos virtuales.

Dim x0 es un valor único, y0 es un número único

Subcomando privado 1_Click ()

s=Verdadero

Comando 1. enable=false

Conector final

Private Subform_Load()

Dim b

B = Array("transparent", "línea continua ", "línea discontinua", "línea discontinua", "línea discontinua", "cadena de dos puntos")

Marco1. Mover 100, 100, 1300, 3500

Cuadro1. Caption="Línea"

Cuadro 2. Ancho móvil: 1500, 100, 1300, 3500

Cuadro 2. Caption = "Ancho de línea"

Para i = 0 a 5

Opción 1(i). Mover 100, 300 + i * 500, 1100, 300

Opción 1(i). título = b(uno)

Opción 2(uno). Mover 100, 500 + i * 500, 800, 300

Opción 2 (una). caption = I+1 y "ancho de punto"

Siguiente i

Forma1(0). visible = falso

Forma1(1). visible = Falso

s = 0

ci = -1

Comando 1. Caption = "Empieza a dibujar un círculo"

Comando 1. ToolTipText = "Haga clic en el botón y presione el botón izquierdo del mouse en el formulario como centro del círculo, arrástrelo hasta el radio y suelte el botón izquierdo del mouse."

Finalizar conector

Sub privado Form_MouseDown(el botón es un número entero, Shift es un número entero, X es un valor único, Y es un valor único)

Si s y Botón = 1, entonces

x0 = X

y0 = Y

ci = ci + 1

Si ci & gt entonces carga Shape1(ci)

Forma1(ci). Visible = Verdadero

Forma1(ci). BorderStyle=mirar hacia adelante

Forma1(ci). Mover x0, y0, 0, 0

Forma1(ci). Forma = 3

Forma1(ci). BorderWidth = Ancho primero

Terminará si...

Conector final

Subformulario privado _ MouseMove(El botón es un número entero, Shift es un número entero, X es único, Y es único)

Si s y Button = 1, entonces

banjing = Sqr((x0-X)*(x0-X)+(y0-Y )*(y0 -Y))

Forma1(ci). Mover x0 - mover la urdimbre, y0 - mover la urdimbre, 2 * mover la urdimbre, 2 * mover la urdimbre

Terminará si...

Conector final

Subprivado Form_MouseUp(El botón es un número entero, Shift es un número entero, X es único, Y es único)

Comando 1. enable = true

s = false

Conectores finales

Subopción privada 1_Click (indexada como número entero)

Para i = 0 a 5

Si la opción 1(i), entonces primero = i

Siguiente i

Si i = 1, entonces

Marco 2. enable=True

Otro

Framework2.

enable=false

first-width=1

terminará si )

Para i = 0 a 5

Si la opción 2( i) luego primero = 1 + i

Siguiente i

Conector final

La interfaz es un poco complicada:

Un botón, dos cuadros, el primer cuadro tiene seis opciones 1 * * * El segundo cuadro tiene seis opciones 2.