Cómo dibujar un rectángulo y acotarlo usando sólo programación VB. Como el efecto de dibujar en CAD.

¡Hola amigos! Según su pregunta, compilé un programa VB que básicamente puede cumplir con sus requisitos. Ahora pegue el código de la siguiente manera. Sin embargo, estos códigos deben combinarse con controles de formulario para ejecutarse. Por lo tanto, es mejor si agrega mi QQ78694359, para que pueda pasarle el código completo y el formulario.

Sub sorteo privado()

kuan = Val(para_Text(0).Text) * 50

gao = Val(para_Text(1).Text) * 50

zuo = Val(para_Text(2).Text) * 50

shang = Val(para_Text(3).Text) * 50

Forma1 .Left = zuo

Forma1.Top = shang

Forma1.Altura = gao

Forma1.Ancho = kuan

biaozhu_Label(0 ).Caption = Str(kuan / 50) "mm"

biaozhu_Label(0).Left = zuo (kuan - biaozhu_Label(0).Width) / 2

biaozhu_Label(0 ).Top = shang - biaozhu_Label(0).Altura - 200

biaozhu_Line(0).X1 = zuo

biaozhu_Line(0).Y1 = shang - biaozhu_Label(0). Altura / 2 - 200

biaozhu_Line(0).X2 = zuo kuan

biaozhu_Line(0).Y2 = biaozhu_Line(0).Y1

biaozhu_Label( 1).Caption = Str(gao / 50) "mm"

biaozhu_Label(1).Left = zuo - biaozhu_Label(1).Width

biaozhu_Label(1).Top = shang (gao biaozhu_Label(1).Height) / 2

biaozhu_Line(1).X1 = zuo - biaozhu_Label(0).Width / 2

biaozhu_Line(1).Y1 = shang

biaozhu_Line(1).X2 = biaozhu_Line(1).X1

biaozhu_Line(1).Y2 = shang gao

End Sub

Sub privado biaozhu(ByVal kuan como entero, ByVal gao como entero)

biaozhu_Label(0).Caption = kuan

biaozhu_Label(1).Caption = gao

End Sub

Sub privado Form_Load()

Text1.Text = "Instrucciones de operación:" amp; , Tecla Enter: seleccione el siguiente parámetro "amp; Chr(13) a

mp; Chr(10) amp; "2. Teclas de flecha: cambiar el valor del parámetro"

End Sub

Private Sub para_Text_Change(Index As Integer)

Llamada dibujar

End Sub

Sub privado para_Text_GotFocus(Index As Integer)

para_Text(Index).SelStart = Len(para_Text(Index))

End Sub

Sub privado para_Text_KeyDown(Índice como entero, Código clave como entero, Mayús como entero)

Dim zuo como entero

Dim shang como entero

Dim kuan como número entero

Dim gao como número entero

Seleccionar código clave de caso

Caso 13

Si índice = 3 Entonces

para_Text(0).SetFocus

Si no

para_Text(Index 1).SetFocus

Finalizar si

Caso 37 'A la izquierda, los datos disminuyen en 10

Si Val(para_Text(Index).Text) - 1 gt; Entonces para_Text(Index).Text = Val(para_Text( Index) .Text) - 1

Caso 39 'A la derecha, los datos aumentan en 10

para_Text(Index).Text = Val(para_Text(Index).Text) 1

Caso 38 'Flecha hacia arriba, los datos aumentan en 100

Si Val(para_Text(Index).Text) - 10 gt; Entonces para_Text(Index).Text = Val(para_Text) (Index).Text) - 10

Caso 40 'Flecha hacia abajo, los datos disminuyen en 100

para_Text(Index).Text = Val(para_Text(Index).Text) 10

Finalizar selección

Finalizar sub