Duda Sobre Loop?

[R3Z]

Como Yo Hago Un loop con 6 fotos  cuando llega a la ultima foto vuelve a la primera

Código (vb) [Seleccionar] Expandir


dim jumps as integer
for jumps = 1 to 6 
image1.visble=true
image2.visble=true
image3.visble=true
image4.visble=true
image5.visble=true
image6.visble=true

next jump

End Sub


[ivancea96]

Cuando el for acaba, vuelve al principio. Es un bucle.

[R3Z]

Seria Con Timer ?   por que no me hace nada

[ivancea96]

¿Pero qué es lo que no consigues hacer?

[R3Z]

Código (vb) [Seleccionar] Expandir

www.youtube.com/watch?v=gw6iV3qaXWM



Queria Hacer Algo asi Dale en 2:08

[ivancea96]

Sí, hazlo con un timer. Con un for no verías nada, ya que cambiaría las imágenes al instante.

[R3Z]

No me hace nada tengo el timer interval en 1000 y todavia

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim jumps As Integer
For jumps = 1 To 2
Mario.Visible = True
Luigi.Visible = True
Next
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = True
End Sub

[rob1104]

Olvídate del for...  esto es algo muy básico, pero te dará la idea del uso del timer

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    if mario1.visible = true
         mario1.visible = false
         luigi1.visible = true
    else
         mario1.visible = true
         luigi1.visible = false
    end if
End Sub