Control Picture como visor de imágenes
Hola Mi duda es la siguiente:
Como ir cambiando dentro de un control picture las imágenes dentro de un mismo directorio al ir haciendo clic con el mouse.
Yo tengo el siguiente código:
Opción explicit
Private Sub Form_Load()
Picture1.Picture= LoadPicture("c:\Mis Documentos\1.jpg")
end sub
entonces cuando aparece el formulario aparece con la primera imagen..
Private sub Picture1_click()
Picture1.Picture= LoadPicutre(c:\Mis documentos\2.jpg)
end sub
Entonces me funciona para la segunda imagen, pero yo quiero ir cambiando las imágenes a medida que voy haciendo clic en el control picture1...
¿Me puede ayudar plis?
Como ir cambiando dentro de un control picture las imágenes dentro de un mismo directorio al ir haciendo clic con el mouse.
Yo tengo el siguiente código:
Opción explicit
Private Sub Form_Load()
Picture1.Picture= LoadPicture("c:\Mis Documentos\1.jpg")
end sub
entonces cuando aparece el formulario aparece con la primera imagen..
Private sub Picture1_click()
Picture1.Picture= LoadPicutre(c:\Mis documentos\2.jpg)
end sub
Entonces me funciona para la segunda imagen, pero yo quiero ir cambiando las imágenes a medida que voy haciendo clic en el control picture1...
¿Me puede ayudar plis?
1 respuesta
Respuesta de denciso
1
Tendrías que leer todos los elementos o archivos de la carpeta que vas a revisar y colocar los nombres de los mismos en un arreglo de memoeria y de ahí puedes obtener el nombre del archivo a visualizar, la rutina la que tienes la tendrías que cambiar para que reciba de parámetro el nombre del archivo a presentar.
Te sugiero que visites la siguiente página:
En donde puedes localizar algunas aplicaciones similares a la que quieres generar.
Te sugiero que visites la siguiente página:
En donde puedes localizar algunas aplicaciones similares a la que quieres generar.
