Programación General > VBA

 Vbasic

(1/1)

arelivaldivia:
Hola! Soy Areli

Tengo este codigo, lo cual me dibuja un segemnto de recta cuando le doy click al command1...
Mi peticion es la siguiente: como puedo hacer para que este se repita cada vez que le doy click al command1 y no se haga solo una vez.

Private Sub Command1_Click()

Dim x  As Integer

x = 1680

Command1.Enabled = False
Line (1560, 1320)-(x, 1320)
Line (1560, 2160)-(x, 2160)
Line (1560, 2880)-(x, 2880)
x = x + 120
Command1.Enabled = True

End Sub

Con el siguiente codigo, trazo la linea pero de un solo click.

Private Sub Command1_Click()

Dim x  As Integer

x = 1680

While (x <= 14760)

Command1.Enabled = False
Line (1560, 1320)-(x, 1320)
Line (1560, 2160)-(x, 2160)
Line (1560, 2880)-(x, 2880)
x = x + 120
Command1.Enabled = True

Wend

End Sub

RadicalEd:
DESPUES DE TERMINAR TODO EL PROCESO HACES LO SIGUIENTE:
Call Command1_Click
ANTES DEL End Sub, ESO SI SE VUELVE UN BUCLE INFINITO
AH Y POR FAVOR NO COLOQUES EL MENSAJE 2 VECES CON 1 ES SUFICIENTE

Navegación

[0] Índice de Mensajes