Como podeis ver el diseño final es una pasada, bien comenzaremos lo primero es relacionar el DriveList, con el DirList y este a su vez con el File List, por ultimo recomiendo usar On Error go to resume para que en caso de error no lo muestre.
Bien ese contenido es el que pondremos en el form Load, haciendo doble clic en el Formulario, y servira para mostrar solo los archivos que hagamos clic con las extensiones GIF, JPG, y BMP que seran imagenes. Y la propiedad de Image Strech sirve para hacer la imagen redimensionado al tamaño dado al picture.
Esto lo tendremos que poner dentro del File1 para al hacer clic que lea la ruta, y el resultado lo muestre en image.picture.Y aqui la gota que colma el proyecto, crearemos un Boton llamado Preview para que las fotos pasen automaticamente y al llegar al final vuelvan al principio de hay que tenga un lujoso 10 !
Aqui esta el contenido del Timer 2 desde el que enlazaremos en el Boton Preview conectando o desconectandolo con la propiedad Enable.
En el Timer 2 se ve como al ListIndex se le suma 1 y cuando llegue al ListCount volvera al principio.
Por ultimo ese código lo Introduciremos en el botón Siguiente para pasar de una foto a otra de manera manual. Y lo mismo para el Botón anterior pero con el símbolo -.
By Ruben Santana
No hay comentarios:
Publicar un comentario