Discussion :

[twizell]

Bonjour,

J'ai un petit problème, j'aimerais afficher des thumbnails de chaqu'une des pages (11) de mon fichier tiff. Le problème survient après la génération du 1ier thumbnail. L'image ne s'affiche plus correctement. (On dirait que l'antialias est désactivé) Le premier thumbnails est bon.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Dim Img 'As WIA.ImageFile
Dim IP 'As WIA.ImageProcess
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
 
'Chargement de l'image
Img.LoadFile App.Path & "\" & frNoEvent.txtNoEvent.Text & ".TIF"
 
'Filtre permettant la redimention
IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = 200
IP.Filters(1).Properties("MaximumHeight") = 200
 
'Boucle sur toute les pages
For X = 0 To Img.FrameCount -1
    DoEvents
    Tumb(X).Top = Tumb(X - 1).Top + 3255
    Tumb(X).Visible = True
    'Changement de page
    Img.ActiveFrame = X+1
    'Application du filtre
    Set Img = IP.Apply(Img)
    'Changement de page
    Img.ActiveFrame = X+1
    w = Img.Width
    h = Img.Height
    'Affectation de l'image redimentionnée au picturebox
    Set Tumb(X).Picture = Img.ARGBData.Picture(w, h)
Next

merci de votre aide...

[SilkyRoad]

bonjour

je n'ai pas réussi à reproduire ton problème (test avec un fichier .tif composé de 3 frames). les images semblent de qualité identique en utilisant ta procedure .
Par contre , je ne suis pas un spécialiste en VB , mais comment fais tu pour afficher la 1ere image , en utilisant cette ligne :

Code :

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

    Tumb(X).Top = Tumb(X - 1).Top + 3255

pour mes essais , j'ai utilisé

Code :

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

    Tumb(x).Top = 1000 + 3255 * x

bonne journée
michel

[twizell]

oups...

en réalité le for commence a 1... Le 0 est déjà placé

[twizell]

J'ai télécharger le Kodak Imaging for Windows et tout fonctionne quand j'utilise ses fonctions et non celle de WIA. Veuillez noter que le logiciel n'est pas disponible pour XP mais qu'il fonctionne quand meme...