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