(Resolvido) Abrir imagem usando o Visualizador de foto do windows via

[Andre_Luiz_S]

Ola,

estou tentando abrir uma imagem usando o visualizador de imagens do windows através do visual basic 6 usando o seguinte código

Shell ("C:\Windows\System32\shimgvw.dll & " " & "D:\clinica\fotosin\preview\foto.jpg"), vbMaximizedFocus

só que dá erro 5 (invalide procedure call or argument).

alguém poderia me ajudar a resolver este problema


Obrigado,

André

[Jhonas]

Shell ("C:\Windows\System32\shimgvw.dll & " " & "D:\clinica\fotosin\preview\foto.jpg"), vbMaximizedFocus

tente assim

Shell "rundll32.exe C:\WINDOWS\system32\shimgvw.dll " & "D:\clinica\fotosin\preview\foto.jpg"

abraço

[Andre_Luiz_S]

<script type='text/javascript'>window.mod_pagespeed_start = Number(new Date());</script>

Shell ("C:\Windows\System32\shimgvw.dll & " " & "D:\clinica\fotosin\preview\foto.jpg"), vbMaximizedFocus

tente assim

Shell "rundll32.exe C:\WINDOWS\system32\shimgvw.dll " & "D:\clinica\fotosin\preview\foto.jpg"

abraço

Jhonas,

O código passou sem dar erro, entretanto o visualizador não abre.

[Jhonas]

Você pode usar

Shell "RunDLL32.exe C: \ Windows \ System32 \ Shimgvw.dll, ImageView_Fullscreen C: \ My Pictures"

para iniciar a imagem e Fax Viewer em uma pasta específica, ou

Shell "RunDLL32.exe C: \ Windows \ System32 \ Shimgvw.dll, ImageView_Fullscreen C: \ My Pictures \ file.jpg"

para abrir um arquivo específico. Você pode usar uma variável em vez de um nome de arquivo literal:

Shell "RunDLL32.exe C: \ Windows \ System32 \ Shimgvw.dll, ImageView_Fullscreen C: \ My Pictures \" & strFilename

exemplo ( não tenho certeza quanto ao lugar da aspas no final ( teste )

Dim Path As String
Path = "C:\Documents and Settings\Nous-Tous\Mes documents\Mes images\ListProg.jpg"
Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Path, vbNormalFocus

ou

Dim Path As String
Path = "C:\Documents and Settings\Nous-Tous\Mes documents\Mes images\ListProg.jpg"
Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen & Path", vbNormalFocus

abraço

[Andre_Luiz_S]

<script type='text/javascript'>window.mod_pagespeed_start = Number(new Date());</script>

Você pode usar

Shell "RunDLL32.exe C: \ Windows \ System32 \ Shimgvw.dll, ImageView_Fullscreen C: \ My Pictures"

para iniciar a imagem e Fax Viewer em uma pasta específica, ou

Shell "RunDLL32.exe C: \ Windows \ System32 \ Shimgvw.dll, ImageView_Fullscreen C: \ My Pictures \ file.jpg"

para abrir um arquivo específico. Você pode usar uma variável em vez de um nome de arquivo literal:

Shell "RunDLL32.exe C: \ Windows \ System32 \ Shimgvw.dll, ImageView_Fullscreen C: \ My Pictures \" & strFilename

exemplo ( não tenho certeza quanto ao lugar da aspas no final ( teste )

Dim Path As String
Path = "C:\Documents and Settings\Nous-Tous\Mes documents\Mes images\ListProg.jpg"
Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Path, vbNormalFocus

ou

Dim Path As String
Path = "C:\Documents and Settings\Nous-Tous\Mes documents\Mes images\ListProg.jpg"
Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen & Path", vbNormalFocus

abraço

Jhonas,

Obrigado,

agora funcionou normalmente.

andré