Lo que pasa es que estoy desarrolando un Software para una Tienda, en una de las pantallas mostrara unas imagenes de algunos productos, las cuales seran escojidas al azar a cada cierto tiempo. Como le hago?
Crei que era algo asi?
Dim strFotos as String
strFotos=Array(Foto1,Foto2,Foto3)
Image1.Picture=LoadPicture(Randomize(DirectorioFotos & "\" & strFotos & ".jpg"))
pero no me da resultados
Dim Num as long
Num = Int((Rnd * 6) + 1) 'en este caso sacaria un numero a boleo del 1 al 6
Salu2
Utiliza el ImageList, es la mejor opcion y la mas comoda, ya q trabajas con su indice... En los componentes busca Microsoft Windows Common Controls 6.0 )si no me equivoco=
Objeto.Picture=ImageList.Listimage(indice).picture
Saludos !