tengo un directorio que su contenido es de fotos .jpg
y quisiera mostrarlas pero de manera aleatoria como lo haria entonces?
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...
Yo renombraría las fotos asi:
1.jpg
2.jpg
3.jpg
[...]
Y luego en el programa pones:
Picture1.Picture = LoadImage(int(rnd*100) & ".jpg")
No lo he probado, pero creo que el código sería una cosa asi :)
no entiendo muy bien. :-[
Cita de: ||MadAntrax|| en 17 Septiembre 2006, 22:31 PM
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?
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 ;)