Apresentando imagens do ImageList sequencialmente

[Danleonhart]

Seguinte:

Tenho uma ImageList com 6 imagens "JPG"...gostaria de apresentá-las sequencialmente em um objeto Image...mas não tá rolando <_<

Uso o seguinte script em um objeto "Timer" com o "Interval" setado em 1000, para que troque a imagem a cada segundo:

Private Sub Timer2_Timer()
Dim I As Integer, Img As Variant
Dim Ln As New Collection

For I = 1 To IL1.ListImages.Count - 1
 Ln.Add I
Next

For Each Img In Ln
 Ima1.Picture = IL1.ListImages(Img).Picture
Next
End Sub

O que me intriga é que se coloco uma Mensagem (MsgBox) logo após a setagem da imagem no objeto "Image", o script funciona !

Private Sub Timer2_Timer()
Dim I As Integer, Img As Variant
Dim Ln As New Collection

For I = 1 To IL1.ListImages.Count - 1
 Ln.Add I
Next
For Each Img In Ln
 Ima1.Picture = IL1.ListImages(Img).Picture
 MsgBox Img  ' <=== Com isso o script funciona !
Next
End Sub

Ajudinha pessoal !!!

[kuroi]

se você escrever DoEvents dentro do for, talvez você consega ver as imagens mudando bem rapidamente.

mas esse codigo não vai fazer as imagens mudarem a cada segundo.

entenda q esse evento Timer2_Timer() vai ser chamado sim a cada segundo. mas o codigo q você colocar la dentro vai ser executado totalmente nesse segundo. o for each não espera um segundo e sim o Timer.

o q você tem q fazer seria mudar a imagem uma vez só cada vez q passar pelo evento Timer2_Timer().

então crie uma variavel pra guardar a imagem atual. praticamente a mesma coisa q fizemos aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=159556

você pode usar o exemplo do array q tem no final do tópico, já q você consegue acessar a lista de imagens como se fosse mesmo um array.