Imagenes... - VB-MUNDO

leosantafesino · #1 (**permalink**) 12-08-2007, 07:42:02

Hola...

Muy buenas. Bueno ando necesitando saber como puedo hacer para mostrar en un 'Picture Box' o en un cuadro de imagen imagenes que haya en una carpeta. Si por ejemplo en la carpeta fotos hay 10 imagenes, necesito mostrar esas imagenes en un formulario y que haya un boton que de la posibilidad de ver la siguiente o volver a la anterior. Digo como ejemplo 10 imagenes en la carpeta, pero pueden ser 2 o 200. ¿Se entiende lo que digo mas o menos?.

Desde ya muchisimas gracias y espero respuestas porque eso me come un poco el cerebro por no saber como buscarle la vuelta.

J.M.Movilla · #2 (**permalink**) 12-08-2007, 10:19:35

Móntate un FileListBox con la propiedad Pattern = "*.jpg" y la propiedad Path igual a la ruta en que tengas tus fotos.

Supongamos que a ese FileListBox le llamas SelecFiles y que tus fotos los tienes en una carpeta de nombre "Fotos" dentro del directorio de tu aplicación:

Código:

Private Sub VerFotos()
    Dim cPath As String
    Dim cFichero As String
    Dim cFoto As String
    Dim n As Integer

    cPath = App.Path & "\Fotos\"
    SelecFiles.Path = cPath
    SelecFiles.Pattern = "*.jpg"

    If SelecFiles.ListCount = 0 Then
        x = MsgBox("No encontramos ninguna foto en la carpeta de Fotos."
        Exit Sub
    End If

    n = 0
    While n < SelecFiles.ListCount
        cFichero = cPath &  SelecFiles.List(n)
        cFoto =  SelecFiles.Path + "\" +  SelecFiles.FileName
        '  Cargas el PictureBox con cFoto
        ' Vas incrementando el valor de "n"... ETC...
    Wend
End Sub

El bucle que te presento no tiene ni pies ni cabeza... Lo reconozco; pero es que me resulta difícil programar así, en esta ventana, sin tener un formulario abierto, sin tener la posibilidad de incluir los botores de "Anterior", "Siguiente", "Terminar".... Todo eso te lo dejo a ti, que eres el autor del proyecto. Creo que con lo que te digo, si vas estudiándolo con F8, paso a paso, espero lo consigas en menos de 15 minutos... Suerte.

lexico · #3 (**permalink**) 14-09-2007, 23:31:32

bieno

EDICIÓN: Podrás comprobar que en este mensaje HAS OLVIDADO INCLUIR TU IMAGEN... Así que, amigo Alexander, me ahorras la pequeña molestia, de borrarlo.

En los otros mensajes que has incluído en el foro, sin ningún sentido... (más o menos como éste), lo único que has buscado ha sido publicitar tus .gif, que ni siquiera sabemos si son tuyos o los tomas de una dirección cualquiera de la web... Pero en todo caso, comprenderás que no encajan en el subforo en que los insertabas. Así que me vas a perdonar, pero, sin pretender disminuir el probable valor de las imágenes, tengo que eliminar tus mensajes en aras del orden.

Editado: José María Movilla Cuadrado.