The Emulator
23 Mensaje(s)
|
| Enviado - 18/8/2004 |
| |
Hola
Puedes usar esto:
Coloca el siguiente codigo en un form con un Picture
Option Explicit
Dim Archivo, Ruta As String
Private Sub Form_Load()
Picture1.AutoSize = True
Ruta = "c:\Mis documentos\Mis imágenes\"
Archivo = Dir(Ruta & "*.jpg", vbArchive)
End Sub
Private Sub Picture1_Click()
Picture1.Picture = LoadPicture(Ruta & Archivo)
Archivo = Dir
End Sub
'Hasta aqui va el codigo
Lo hize y lo probe asi que si esta funcionando solo es que cambien la carpeta donde se encuentran las imagenes en la variable Ruta.
Si tienes alguna duda no dudes en preguntarme.
Saludos
www.theemulator.tk |
| |
|
