' Cotruye un Visualizador de Imagenes con Solo 9 Lineas de Codigo,
' Si lo contruyes con Visual Basic 5.0 Te permitira ver Imagenes BMP, GIF, JPG, ICO, WMF
' Crea Un Nuevo Proyecto, y al Form1 ponle los siguientes Objetos :
' Un Picture con su Propiedad Resize =True (Picture1)
' Un FilelistBox (File1)
' Un DirListBox (Dir1)
' Un DriveLisBox (Drive1)
' Un TextBox con su Propiedad Text = *.BMP (Text1)
' Acomodalos como quieras dentro del Form1, Dejando espacio sufucuente para el Picture1.
'Comienza el Codigo :
'En el Evento Load del Form1 Pon :
F = Text1
'En el Evento Change del Text1 Pon :
F = Text1
'El Evento Change del Drive1 Pon :
Dir1=Drive1
'El Evento Change del Text1 Pon :
File1=Text1
'El Evento Change del Dir1 Pon :
File1=Dir1
'El Evento Click del File1 Pon :
On Error GoTo ErrorF:
Set Picture1 = LoadPicture(Dir1 & " \" & File1)
Exit Sub
ErrorF:
Resume Next