Explorador Imagenes

Explorador imagenes

En esta practica haremos que se puedan ver las imgenes que tenemos. En el fromulario pondremos un DriveListBox, un DirListBox, un FileListBox donde se mostrara todas la imagenes que tengamos en la carpeta seleccionada, un Image y cutro CommandButton.



En los ListBox que hemos puesto ponemos este codigo:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
Dir1.Path = Drive1.Drive
End Sub

Private Sub Drive1_Change()
On Error Resume Next

Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path & "/" & File1.FileName)
End Sub

En los Botones que hemos puesto, entramos en el codigo y ponemos este codigo en cada uno de ellos que sera uno para ir para atras, otro para ir a la siguiente imagen y otro para que las imagenes se pasen solas y otro para parar la visualización automatica.

Private Sub Command2_Click()
On Error Resume Next

File1.Selected(File1.ListIndex - 1) = True
End Sub
Private Sub Command1_Click()
On Error Resume Next

File1.Selected(File1.ListIndex + 1) = True
End Sub

Private Sub Command4_Click()
Timer2.Enabled = True

End Sub

Private Sub Command5_Click()
Timer2.Enabled = False
End Sub

Al final cambiamos la estetica del Formulario como cambiar el color de fondo y poner la fecha y hora.