Cambiar Imagen con Timer

[Zorrohack]

Si le asigna un numero al azar pero si el numero que escoje al azar se pasa de 100 ejemplo porque tengo 100 imagenes dentro del ImageList me da error de Index out of Bound

[NYlOn]

Código [Seleccionar] Expandir

i = Rnd * 100

Eso hace que el numero al azar no sobrepase el 100... pero me olvidaba de que el 100 no lo incluye...
El code kedaria:

Código [Seleccionar] Expandir

i = Rnd 9 101



salu2 !

[Zorrohack]

Bueno, no entendi muy bien eso pero modifique el Codigo asi:

Dim i As Long
Math.Randomize
i = Rnd * 2
If i > 2 Or i < 1 Then
   Exit Sub
Else
   Image8.Picture = ImageList1.ListImages(i).Picture
End If

porque en realidad tengo dos imagenes en el ImageList aunque ya tendre mas.  Si al azar es mayor que 2 que seria el limite del index sale de la Funcion y si es menor que 1 que es lo mas bajo del Index tambien sale.

[NYlOn]

porque en realidad tengo dos imagenes en el ImageList

------------____------------

x eso te daba error... lo que podes hacer es que sake un numero aleatorio dependiendo la cantidad de imagenes que hay en el ImageList:

Código [Seleccionar] Expandir


    Dim i As Long
   
    Math.Randomize 'hace que no salga siempre la misma cadena
    i = Rnd * ImageList1.ListImages.Count 'saca un numero aleatorio del 0 a la cantidad de imagenes que hay en el ImageList

   Image8.Picture = ImageList1.ListImages(i).Picture



un saludo

[Zorrohack]

De todos modos me da error de Index out of Bounds , pero funciona perfectamente asi:

Dim i As Long
Math.Randomize
i = Rnd * ImageList1.ListImages.Count
If i > 3 Or i < 1 Then
  Exit Sub
Else
  Image8.Picture = ImageList1.ListImages(i).Picture
End If

Aunque se supone que funcione pero no se porque sigue dando ese error

[MaLkAvIaN_NeT]

...Bien cuando tu le haces un ramdom x ejemplo asi:
i=rnd*100
,, tambien te considera el cero,, y el índice mínimo del imagelist es 1

salu2

cin >>www.forochl.tk