Discussion :

[Monina]

Bonjour,

Je souhaiterais pouvoir, sur une form VB6, afficher les images contenues dans un répertoire sous forme de miniatures.
Faut il pour cela utiliser les objets type FileSystemObject pour browser le contenu du rep, puis créer dynamiquement autant de picturebox qu'il y a d'images?

Comment par ailleurs faire en sorte que chque picturebox ait la bonne taille?

Merci d'avance,

[zazaraignée]

Salut

Utilise plutôt un contrôle Image avec la propriété Stretch à true. De cette façon, les dimensions de l'image seront réajustée (pour l'affichage) aux dimensions du contrôle.

[méphistopheles]

Bonjour zaza


sinon, tu peut les modifier avec la propriété paintpicture.


salut

[Monina]

Merci pour vos réponses.

Grâce à elles, je suis arrivé à un résultat qui fonctionne. Seul problème, je teste sur l'affichage de 6 images jpeg de 30 ko chacune, et ça prend une quinzaine de secondes à s'afficher.

Il y aurait il un moyen plus performant?

Merci,

A+

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
Dim objFSO              As Scripting.FileSystemObject
    Dim f                   As Folder
    Dim fc                  As Files
    Dim i                   As Integer
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set f = objFSO.GetFolder("c:\Temp\test")
    Set fc = f.Files
    For Each f1 In fc
        If i > 0 Then
            Load Img(i)
            If i Mod 5 = 0 Then
                Img(i).Top = Img(i - 5).Top + (1.1 * Img(i).Height)
                Img(i).Left = Img(i - 5).Left
            Else
                Img(i).Left = Img(i - 1).Left + (1.1 * Img(i).Width)
            End If
        End If
        Img(i).Visible = True
        Img(i).Stretch = True
        Img(i).Picture = LoadPicture(f1.Path)
        i = i + 1
    Next