SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: arelivaldivia en Jueves 14 de Octubre de 2004, 08:40

Título: Vbasic
Publicado por: arelivaldivia en Jueves 14 de Octubre de 2004, 08:40

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

Título: Re: Vbasic
Publicado por: RadicalEd en Jueves 14 de Octubre de 2004, 15:36

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