Duda Fotos Aleatorias

[Zorrohack]

tengo un directorio que su contenido es de fotos .jpg

y quisiera mostrarlas pero de manera aleatoria como lo haria entonces?

[yeikos]

Crea una matriz y ve asignandole el nombre de la foto a esta mediante un bucle, luego haz un rnd y según el número que salga eligirá una foto u otra...

[Mad Antrax]

Yo renombraría las fotos asi:

1.jpg
2.jpg
3.jpg
[...]

Y luego en el programa pones:

Código [Seleccionar] Expandir


Picture1.Picture = LoadImage(int(rnd*100) & ".jpg")


No lo he probado, pero creo que el código sería una cosa asi

[Zorrohack]

no entiendo muy bien. 

[Zeroql]

Código [Seleccionar] Expandir


Picture1.Picture = LoadImage(int(rnd*100) & ".jpg")


lo que se esta haciendo es cargar una imagen aleatoria de 1 a 100 logicamente cambias el 100 por el numero de jpg que tienes. esta claro?

[yeikos]

Código [Seleccionar] Expandir


Public Function Busqueda(folder As String, ext As String) As String
On Error Resume Next
Dim cr As String, cx As String: str1 = folder
cr = Dir$(folder + "*." + ext)
While cr <> ""
cx = cx & cr & "|"
cr = Dir$
Wend
End Function
Private Sub Command1_Click()
buf = Split(Busqueda("C:\carpeta_con_imagenes\", "jpg"), "|")
MsgBox
Picture1.Picture = LoadImage(str1 & buf(Int((Rnd * UBound(buf)))))
End Sub


Suerte