Windows Picture and Fax viewer(ou Aperçu des images et des télécopies Windows)
Résolu
thib1000
Messages postés
13
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
24 juin 2005
-
19 mai 2005 à 18:15
thib1000 Messages postés 13 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 24 juin 2005 - 19 mai 2005 à 18:43
thib1000 Messages postés 13 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 24 juin 2005 - 19 mai 2005 à 18:43
2 réponses
michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
31
19 mai 2005 à 18:22
19 mai 2005 à 18:22
bonjour
j'espere que cet exemple pourra t'aider
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub afficherImage_ApercuWindows()
Dim Img As String
Img = "C:\Documents and Settings\michel\dossier\general\general\LeChat.bmp" 'adapter le chemin
ShellExecute 0, "open", "rundll32.exe", "C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Img, 0, 1
End Sub
bonne soiree
michel
j'espere que cet exemple pourra t'aider
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub afficherImage_ApercuWindows()
Dim Img As String
Img = "C:\Documents and Settings\michel\dossier\general\general\LeChat.bmp" 'adapter le chemin
ShellExecute 0, "open", "rundll32.exe", "C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Img, 0, 1
End Sub
bonne soiree
michel
thib1000
Messages postés
13
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
24 juin 2005
19 mai 2005 à 18:43
19 mai 2005 à 18:43
merci beaucoup !!
