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
p>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.