Taller Visor de Imagenes

Este programa nos permite buscar y mostrar imágenes en el Disco Duro, CD o USB.

Siga los siguientes pasos:

1. Entre a Visual Basic 6.0

2. Diseño de Pantalla:

Utilice los siguientes objetos:

Al Objeto Image debe cambiar la propiedad Stretch a True.

3. Debe escribir el siguiente código (Puede copiar y pegar) en la ventana de código:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)

End Sub

Private Sub Form_Load()

File1.Pattern = "*.jpg; *.bmp; *.wmf; *.gif"

End Sub

4. Para mostrar resultados presione F5 y comience a utilizar el programa.