Discussion :

[Invité]

Bonjours,

Je ne sais pas comment faire pour dissocier les PictureBox, seul la derniere PictureBox generer fait se que l'on luis demande .

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Me.Opacity = 0.5
 
        users = ("C:\Users\Bryan\Desktop\ModdingDesign\Dock_Gamer\Users\")
 
        For Each Fichier In IO.Directory.GetDirectories(users)
            Dim info As New IO.DirectoryInfo(Fichier)
            nom = info.Name
 
            Pics = New PictureBox
            Texte = New Label
 
            Dim chemin = (users & nom)
            Dim exe As New IO.StreamReader(chemin & "\chemin.txt")
            Dim exesave = exe.ReadLine()
            exe.Close()
 
            With Pics
                .Size = New Size(100, 150)
                .ImageLocation = (users & nom & "\pochette.jpeg")
                .SizeMode = PictureBoxSizeMode.StretchImage
                .Tag = exesave
                .Name = nom
                AddHandler .Click, AddressOf PictureBox_Click
                AddHandler .MouseHover, AddressOf PictureBox_MouseHover
                AddHandler .MouseLeave, AddressOf PictureBox_MouseLeave
            End With
 
            With Texte
                .Text = nom
            End With
 
            With FlowLayoutPanel2
                .Controls.Add(Texte)
                .FlowDirection = FlowDirection.LeftToRight
            End With
 
            With FlowLayoutPanel1
                .FlowDirection = FlowDirection.LeftToRight
                .Controls.Add(Pics)
                .Controls.Add(FlowLayoutPanel2)
            End With
 
        Next Fichier
 
 
    End Sub

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
 
   Private Sub PictureBox_MouseHover(sender As Object, e As EventArgs)
 
        With Pics
            .Size = New Size(200, 300)
        End With
 
    End Sub
 
    Private Sub PictureBox_MouseLeave(sender As Object, e As EventArgs)
 
        With Pics
            .Size = New Size(100, 150)
        End With
 
    End Sub
 
    Private Sub PictureBox_Click(sender As Object, e As EventArgs)
 
        Dim strFileName As String = DirectCast(sender, PictureBox).Tag.ToString
        Process.Start(strFileName)
 
    End Sub

[nouanda]

Dans ton code actuel, tu ne joues que sur Pics, et donc forcement, en mémoire, Pics correspond a la dernière image ajoutée.
En castant sender en PictureBox, les événements MouseHover et MouseLeave vont agir sur l'objet qui a levé l’événement:

Code :

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

DirectCast(sender, PictureBox).Size = New Size(width, height)

[Invité]

Un grand merci cela fonctionne