SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: carpanta en Domingo 19 de Noviembre de 2006, 20:44

Título: Visor De Imagenes Y Fax
Publicado por: carpanta en Domingo 19 de Noviembre de 2006, 20:44

Hola. A ver si alguno me podeis ayudar. Estoy haciendo una aplicacion que maneja fotografias y me gustaria saber como llamo al visor de imagenes de XP desde vb6.

Gracias de antemano :kicking:

Título: Re: Visor De Imagenes Y Fax
Publicado por: F_Tanori en Domingo 19 de Noviembre de 2006, 21:51

Hola

Mira esta es una manera de abrir un archivo con el Visor de Imagenes

Código: Text

1.  
2. Private Sub CmdVisor_Click()
3. Dim ls_VisorImagenesRuta As String, ls_Archivo, ls_DirSistema
4.  
5.   ls_Archivo = "C:\DSC00540.jpg" 'Ruta del archivo que se desea abrir
6.  
7.   ls_DirSistema = Environ("SystemRoot") 'Obtener el directorio del sistema
8.   ls_VisorImagenesRuta = "rundll32.exe " & ls_DirSistema & "\system32\shimgvw.dll,ImageView_Fullscreen " & ls_Archivo 'Generar instruccion a ejecutar
9.        
10.    Shell ls_VisorImagenesRuta, vbNormalFocus 'Abrir el archivo
11. End Sub
12.  

Tambien pudieras usar ShellExecute (Api) o tal vez haya una api para el propio visor  :ph34r: , no se pero esa funciona ;)


Saludos

Título: Re: Visor De Imagenes Y Fax
Publicado por: carpanta en Lunes 20 de Noviembre de 2006, 12:49

Perfecto!!. Muchas gracias F_Tanori