Discussion :

[fisio]

Bonjour chers developpezeur/euse,

J'ai le besoin de faire défiler les pages sur un control de type "PICTURE" d'un tiff multi-page.

Merci de votre aide

Je me suis lancer dans ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Me.PICTURE_00.Picture = "T:\097_SCAN_doc\20190722_084309.tif"
 
Set Img = CreateObject("WIA.ImageFile")
Img.LoadFile "T:\097_SCAN_doc\20190722_084309.tif"
 
For X = 0 To Img.FrameCount - 1
 
Img.ActiveFrame = X + 1
 
Me.PICTURE_00.Picture = Img
 
Next

[Zekraoui_Jakani]

A tout hasard, essayez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.PICTURE_00.Picture.setfocus

mais il faudra ajouter un temps d'attente pour voir l'image; pour cela voir documentation sur "Timer"

[fisio]

Merci de ce retour, cependant ma recherche est stoppée à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.PICTURE_01.Picture = IMG

Propriété ou méthode non gérée par cet objet

[Zekraoui_Jakani]

Est-ce qu'il y a un défilement avant l'arrêt ?
Si oui, ajouter On Error Resume Next juste avant Img.ActiveFrame = X + 1.
Sinon, c'est que la propriété picture"" n'est pas attribuée à l'élément Me.PICTURE_01 ou que IMG n'est pas du bon format/contenu ...