Escoger imagen al azar de 1 carpeta y mostrarla

[Spike_ak]

Hola. Tengo una carpeta con 10 imagenes.
Quiero que al hacer click en el boton, muestre en el picturebox (no se si esta bien usar picturebox) una imagen al azar de las 10 de la carpeta. ¿Como hago eso?
Con Randomize no pude, puse Randomize y LoadPicture dentro, pero no funciona.
Gracias,
Lucas.

[seba123neo]

Hola,aca te paso un codigo que hice que hace lo que queres.suponiendo que las imagenes se llamen 1.jpg , 2.jpg, 3.jpg etc..... hasta el 10.

Código:

Private Sub Command1_Click()
Dim Limite1 As Integer
Dim Limite2 As Integer
Limite1 = 1
Limite2 = 10
Dim imagen As String
imagen = App.Path & "\" & Int((Limite1 - Limite2 + 1) * Rnd + Limite1) & ".jpg"
Picture1.Picture = LoadPicture(imagen)
End Sub

lo podrias poner en un timer con cierto intervalo y hacer como una presentacion de fotos.

saludos.

[Spike_ak]

Código:

Private Sub cmdRepartir_Click()
Dim Limite1 As Integer
Dim Limite2 As Integer
Limite1 = 1
Limite2 = 52
Dim imagenes As String
imagenes = App.Path & "\imagenes\cartas\" & Str(Int((Limite2 - Limite1 + 1) * Rnd + Limite1)) & ".jpg"
Picture6.Picture = LoadPicture(imagenes)
End Sub

Use el codigo que me pasastes, lo modifique bastante jeje. Pero me dice "ERROR 53 No se ha encontrado el archivo" y esta bien la ruta y todo.

[seba123neo]

fijate que tu codigo no coincide con el que puse yo:

vos pusiste:

Código:

imagenes = App.Path & "\imagenes\cartas\" & Str(Int((Limite2 - Limite1 + 1) * Rnd + Limite1)) & ".jpg" 

es asi:

Código:

imagenes = App.Path & "\imagenes\cartas\" & Int((Limite1 - Limite2 + 1) * Rnd + Limite1) & ".jpg" 

y por lo que veo tus fotos se tienen que llamar desde 1.jpg hasta 52.jpg

saludos.

[Spike_ak]

No, ya se. Igual no funciona.
El STR me dijo que se lo agregue un amigo, al ver que no funcionaba con el INT.

[seba123neo]

que raro che,pero ya se lo que es lo que pasa es que el resultado del numero que genera el random esta fuera del intervalo de los limites y te da una foto que no la encuentra y a veces da negativo por ejemplo -2.jpg ,trata de acomodar la formula para que te den los numeros justos del 1 al 52 y no se pase del 52 ni sea mas chico que el 1.

y sino probate esta otra funcion basica:

Código:

Private Sub Command1_Click()
imagen = Int(Rnd * 10) + 1
Picture1.Picture = LoadPicture(App.Path & "\" & imagen & ".jpg")
End Sub

el valor que le des a la multiplicacion del random es el maximo valor de la foto,en este caso es un 10 ,en tu caso ponele un 52.pero como veo que es un juego de cartas o algo parecido seria bueno que le veas las funciones para generar numeros aleatorios no repetidos.

saludos.