 Autor
|
Tema: Cambiar Imagen con Timer (Leído 11,889 veces)
|
Zorrohack
 Desconectado
Mensajes: 855
Quisiera burlar la enfermedad asi como a los AVs
|
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
|
|
|
|
|
En línea
|
Progresamos porque hay Millones de imbeciles, maldicion jodi a McAfee,Panda,Kav,Norton, perdonen solo practicaba.
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
Eso hace que el numero al azar no sobrepase el 100... pero me olvidaba de que el 100 no lo incluye... El code kedaria:  salu2 !
|
|
|
|
|
En línea
|
|
|
|
Zorrohack
Desconectado
Mensajes: 855
Quisiera burlar la enfermedad asi como a los AVs
|
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.
|
|
|
|
|
En línea
|
Progresamos porque hay Millones de imbeciles, maldicion jodi a McAfee,Panda,Kav,Norton, perdonen solo practicaba.
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
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: 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
|
|
|
|
|
En línea
|
|
|
|
Zorrohack
Desconectado
Mensajes: 855
Quisiera burlar la enfermedad asi como a los AVs
|
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
|
|
|
|
|
En línea
|
Progresamos porque hay Millones de imbeciles, maldicion jodi a McAfee,Panda,Kav,Norton, perdonen solo practicaba.
|
|
|
MaLkAvIaN_NeT
Desconectado
Mensajes: 213
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
|
|
|
|
|
En línea
|
a por las buenas ideas
|
|
|
|
 |
