EXPLORADOR DE IMAGENES VB

-En este programa crearemos un formulario nuevo donde visualizaremos mediante un drive, dirlistbox y filelistbox imagenes almacenadas en nuestro ordenador:

-Crearemos en el centro un image donde se mostraran las imagenes del ordenador :

Tambien deberemos crear dos botones uno de anterior y otro de siguiente, con el siguiente codigo en el interior de cada uno de ellos:

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
 
 
 

Para poder retroceder y abanzar se introducira el codigo anterior y en los dirlistbox,filelistbox y drive:

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(Dir1.Path & "\" & File1.FileName)

End Sub

Private Sub Form_Load()

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

Image1.Stretch = True

End Sub

I este es el resultado final del proyecto de explorador de imagenes: