Problème pour retrouver les index des contrôles ajoutés dynamiquement

Version imprimable

04/09/2012, 00h16
BasicZX81

Problème pour retrouver les index des contrôles ajoutés dynamiquement

Bonjour à tous, ça fait 2 jours que je bute sur ce problème :
J'ajoute des contrôles PictureBox dynamiquement dans un contrôle PictureBox qui me sert de container.
Pour ajouter je fait :

Dim picture As New PictureBox
MonContainer.Controls.Add(picture)

Quand j'ajoute un contrôle je crée aussi une clé que j'ajoute à une Liste : List (of integer) avec le code : maliste.add(Key)
Ainsi donc logiquement l'ordre des clés dans ma liste devrait être le même que l'ordre des index des contrôles mais ça ne semble pas être le cas.
j'ai fait l'essai suivant : quand j'ajoute 2 éléments respectivement dans mon container et dans ma liste (2 pictureBox et 2 clés), si je veux supprimer la première clé ajoutée et le contrôle associé, je vais lire la valeur de l'index dans ma liste (=0), puis je supprime mon contrôle grâce à l'index avec obtenu MonContainer.controls.removeat(0)
Probleme le controle effectivement supprimé est non pas le premier mais le dernier ajouté !!!
Vous avez une idée concernant ce problème ?
04/09/2012, 00h53
Graffito
On peut :
- définir la propriété Name de chaque PictureBox dynamique à la création, par exemple : MyNewPictureBox.Name="PictureBox" + Index.ToString().
- supprimer une picture box via son nom, par exemple : MonContainer.Controls.RemoveByKey("PictureBox" + Index.ToString()).
04/09/2012, 12h31
BasicZX81

Merci beaucoup Graffito, je ferais un essai ce soir.
Entre temps j'ai essayé de comprendre pourquoi je n'arrivais pas à obtenir le bon contrôle grâce aux index stocker ma liste.
Il semblerait que mes contrôles prennent un numéro d'index non pas en fonction de l'ordre dans lequel ils ont été ajoutés dans le container mais plutôt en fonction de leur position (propriété location ?!) dans le container (de la gauche vers la droite), je trouve ce comportement plutôt étrange.
J’essaierais d'en savoir plus mais c'est vraiment bizard.
04/09/2012, 13h55
ebastien
Bonjour,

Une autre solution plus simple serait de créer une List(of Picturebox) plutôt qu'une List(of integer).
A chaque fois que tu crées un PictureBox, tu l'ajoutes à cette liste.
De ce fait, si tu veux supprimer le 3ème PictureBox de ta liste, tu n'as plus qu'à faire un
Code:

1 2 3 MonContainer.Controls.Remove(MaListe.item(2)) MaListe.RemoveAt(2)
Ou un truc dans le genre... (j'ai pas vb sous la main)
Bonne journée,
eb.
04/09/2012, 15h02
BasicZX81

Bonjour et merci ebastien,
Quelqu'un peux me dire pourquoi quand je supprime mon controle avec MonContainer.controls.removeat(0), c'est le dernier controle ajouté que je supprime alors que ca devrait être le premier ?
Mes controles ont chacun une propriété Location differentes, et le problème se produit si j'ajoute mes controles en partant de la droite vers la gauche. En clair l'index 0 correspond toujours au controle le plus à gauche même si c'est le dernier à avoir été ajouté au container.

En vous remerciant par avance.
04/09/2012, 15h12
chaparo
Bonjour BasicZX81

Lorsque tu vas pour supprimer tes contrôles pose un point d'arrêt et regard dans l'espion Me.Control tu a la liste et leu index normalement. Cela te permettra de mieux voir.

Si l'index 0 est ton dernier composant ajouté tu peux bidouiller en les ajoutant dans l'autre sens.

Je ne sais pas pourquoi tu veux supprimer des picturebox, mais pourquoi ne les rendrais tu pas invisible quand tu n'en a pas besoin ?

Sinon si tu veux juste retrouver les index la méthode de Graffito me semble plus approprié.
Citation:
Envoyé par Graffito

On peut :

définir la propriété Name de chaque PictureBox dynamique à la création, par exemple : MyNewPictureBox.Name="PictureBox" + Index.ToString().
supprimer une picture box via son nom, par exemple : MonContainer.Controls.RemoveByKey("PictureBox" + Index.ToString()).
04/09/2012, 15h41
BasicZX81

Bonjour Chaparo, je ne pourais verifier que ce soir mais je suis pas sur de pouvoir faire cela avec VB2010 Express. Bref de toutes facon il faut que je léve ce mystére d'un facon ou d'une autre.
Pour mieux comprendre ce que je veux faire :
L'application permet de couper une video en plusieurs Clips. Donc pour chaque clips que je veux garder je symbolise ces derniers sur la TimeLine (qui se trouve en position horizontale) avec des controles PictureBox dimenssionné selon la durée du Clip.
Et bien sure dans mon appli je peux trés bien commencer à découper une video par la fin donc mon premier PictureBox peux se trouver à droite.
04/09/2012, 16h42
ebastien

D'où le risque de supprimer le control du container en utilisant l'index. Imagine de plus que tu veuilles un jour ajouter d'autres types de control dans ta Timeline, ton code de suppression de PictureBox ne marchera plus ... Tu as franchement intérêt à maintenir une List(of PictureBox) à toi et à supprimer le PictureBox du container en utilisant la référence du PictureBox que tu récupères dans ta liste.

Citation:

je suis pas sur de pouvoir faire cela avec VB2010 Express

Tu peux activer le debugger avec une version Express de VS et donc mettre des points d'arrêt sans problème.

eb.
04/09/2012, 17h30
BasicZX81

Je vais tester tous ca ce soir. merci à tous.
04/09/2012, 19h46
Graffito
Pour répondre à ta question sur les index des controls, il me semble que :
- l'index des controls est lié au Z-Order, c'est à dire au fait que le controle soit plus ou moins en Avant-Plan.
- en ajoutant un Control dynamique, il est automatiquement mis en avant plan, donc il s'insèrerait en position 0.
Pour gèrer l'ordre de façon explicite, on peut utiliser la fonction SetChildIndex() du control Parent.

merci Grafito,
J'ai réécrit un bout de code dans un nouveau projet pour tester l'ordre des index des contrôles ajouté dynamiquement et cette fois cela à fonctionné comme je m'y attendais c'est à dire que le 1er contrôle posséde toujours l'index 0, et si je supprime un contrôle au milieu de la collection (à l'index n) tous les contrôles qui ont un index n+1 prennent l'index (index=index-1).
j'ignore complètement ce qui s'est passé dans mon programme mais du coup je suis repartie de zéro sur cette partir du code.
Bref, J'ai réussi à écrire une classe qui fonctionne à peu prés mais c'est ma 1ere classe que j'arrive à écrire tout seul (ou presque) et je suis pas sûre que j'ai fait les choses correctement, notamment au niveau de la façon d'instancier ma classe ainsi qu'au au niveau des constructeurs. Ce que j'ai fait est très brouillon je pense et j'aimerais avoir des conseils si c'est possible. Notamment, je suis obligé de passer un paramètre (Nombres de Frames) dans ma classe clsDataVideoEdit alors que celle-ci n'est pas directement concernée.
Dans l'esprit la classe clsDataVideoEdit contient tous les Objets suivants :
clsVideoEditCut : Contient tous les points de coupures de la vidéo.
clsCutsClip : Contient les données des clips. On peux l'instancier independament des autres classes et l'ajouter ensuite à clsCideoEditCut.

Plus tard je rajouterais d'autres sous classes de clsDataVideoEdit construite sur le même principe (pour enregistrer les valeurs de crops, et d'autres choses)
J'ai rajouté serializable pour serializer clsDataVideoEdit pour enregistrer toutes les données (un fichier XML pour chaque vidéo).

Pour utiliser ma classe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim PictureBox1 as new PictureBox ' Sert de container pour la Timeline
PictureBox1.Width = 500
PictureBox1.Height = 15
 
DataVideoEdit = New clsDataVideoEdit
DataVideoEdit.VideoEditCut.Container = PictureBox1 ' On indique à la classe quel container il faut utiliser.
DataVideoEdit.VideoEditCut.ListBox = ListBox1 ' On indique à la classe quel ListBox il faut utiliser.
DataVideoEdit.VideoEditCut.Reset() ' Efface tous les points de coupures.
DataVideoEdit.VideoEditCut.NbFrames = NbFrames ' On indique le Nombres de Frames totals de la video.
 
'Puis on ajoute les clips.
Dim Clip as new CutsClip
Clip.Cut_In = 1000
Clip.Cut_Out = 1500
DataVideoEdit.VideoEditCut.add(Clip)
 
'Pour supprimer un clip :
Dim IndexofKey As Integer = ListBox1.SelectedIndex ' On récupère l'index du clip à supprimer dans la listBox
DataVideoEdit.VideoEditCut.RemoveAt(IndexofKey) ' Suprimme le clip dans la collection, supprime l'item dans la listeBox et supprime le controle pictureBox associé sur la TimeLine.

Code:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
<Serializable()>
Public Class clsDataVideoEdit
    Private _VideoEditCut As clsVideoEditCuts
    Public Sub New()
        _VideoEditCut = New clsVideoEditCuts(0)
    End Sub
    'Public Sub Clear()
    '    _VideoEditCut.Clear()
    'End Sub
    Public Property VideoEditCut As clsVideoEditCuts
        Get
            Return _VideoEditCut
        End Get
        Set(ByVal value As clsVideoEditCuts)
            _VideoEditCut = value
        End Set
    End Property
 
    Public Class clsVideoEditCuts
        Private _SortedListVideoEditCut As SortedList
        Dim _Container As PictureBox
        Dim _NbFrames As Integer
        Dim _ListBox As ListBox
        Dim _SCGXtl As Integer
        Dim _SCGYtl As Integer
        Private _Compteur As Integer
        Public Sub New(ByVal NbFrames As Integer)
            _SortedListVideoEditCut = New SortedList
            _Container = New PictureBox
            _NbFrames = NbFrames
            _SCGXtl = _Container.Width
            _SCGYtl = _Container.Height
            _ListBox = New ListBox
        End Sub
        Public Sub New(ByVal NbFrames As Integer, ByVal Container As PictureBox, ByVal ListBox As ListBox)
            _SortedListVideoEditCut = New SortedList
            _Container = Container
            _NbFrames = NbFrames
            _SCGXtl = Container.Width
            _SCGYtl = Container.Height
            _ListBox = ListBox
        End Sub
        Public Property NbFrames As Integer
            Get
                Return _NbFrames
            End Get
            Set(ByVal value As Integer)
                _NbFrames = value
            End Set
        End Property
        Public Property Container As PictureBox
            Get
                Return _Container
            End Get
            Set(ByVal value As PictureBox)
                _Container = value
                _SCGXtl = Container.Width
                _SCGYtl = Container.Height
            End Set
        End Property
        Public Property ListBox As ListBox
            Get
                Return _ListBox
            End Get
            Set(ByVal value As ListBox)
                _ListBox = value
            End Set
        End Property
        Public Sub Reset()
            _SortedListVideoEditCut.Clear()
            _Container.Controls.Clear()
            _ListBox.Items.Clear()
            _Compteur = 0
        End Sub
        Public Property Items As SortedList
            Get
                Return _SortedListVideoEditCut
            End Get
            Set(ByVal value As SortedList)
                _SortedListVideoEditCut = value
            End Set
        End Property
 
        Public Property Item(ByVal index As Integer) As CutsClip
            Get
                Dim Key As Integer = CInt(_SortedListVideoEditCut.GetKey(index))
                Return CType(_SortedListVideoEditCut.Item(Key), CutsClip)
            End Get
            Set(ByVal value As CutsClip)
                Dim Key As Integer = CInt(_SortedListVideoEditCut.GetKey(index))
                _SortedListVideoEditCut.Item(Key) = value
            End Set
        End Property
 
        Public Sub RemoveAt(Index As Integer)
            Dim Key As Integer = CInt(_SortedListVideoEditCut.GetKey(Index))
            Dim CutsClip As CutsClip = CType(_SortedListVideoEditCut.Item(Key), clsVideoEditCuts.CutsClip)
            Dim PictureBoxName As String = CutsClip.PictureBox.Name
            _Container.Controls.RemoveByKey(PictureBoxName)
            _ListBox.Items.RemoveAt(Index)
            _SortedListVideoEditCut.RemoveAt(Index)
        End Sub
        'Public Sub Add(ByVal Key As Integer, ByVal FrameBegin As Integer)
        '    Dim _Cuts As New CutsClip
        '    _Cuts.Name = "Clip" & (_Compteur + 1).ToString
        '    _Cuts.FrameBegin = FrameBegin
        '    _Cuts.Key = Key
        '    If Not _SortedListVideoEditCut.ContainsKey(Key) Then
        '        _SortedListVideoEditCut.Add(Key, _Cuts)
        '        _ListOfKey.Add(Key)
        '        _Compteur += 1
        '    Else
        '        Throw New Exception("Le Clip existe déja !")
        '        Exit Sub
        '    End If
        'End Sub
        'Public Sub Add(ByVal Key As Integer, ByVal FrameBegin As Integer, FrameEnd As Integer)
        '    Dim _Cuts As New CutsClip
        '    _Cuts.Name = "Clip" & (_Compteur + 1).ToString
        '    _Cuts.FrameBegin = FrameBegin
        '    _Cuts.FrameEnd = FrameEnd
        '    _Cuts.Key = Key
        '    If Not _SortedListVideoEditCut.ContainsKey(Key) Then
        '        _SortedListVideoEditCut.Add(Key, _Cuts)
        '        _ListOfKey.Add(Key)
        '        _Compteur += 1
        '    Else
        '        Throw New Exception("Le Clip existe déja !")
        '        Exit Sub
        '    End If
        'End Sub
        Public Sub Add(ByVal CutsClip As CutsClip)
            Dim _CutsClip As New CutsClip
            _CutsClip.Name = "Clip" & (_Compteur + 1).ToString
            _CutsClip.Cut_In = CutsClip.Cut_In
            _CutsClip.Cut_Out = CutsClip.Cut_Out
            Dim Key As Integer = _CutsClip.Cut_In
            If Not _SortedListVideoEditCut.ContainsKey(Key) Then
 
                Dim x1 As Integer = CInt((_CutsClip.Cut_In / _NbFrames) * _SCGXtl)
                Dim x2 As Integer = CInt((_CutsClip.Cut_Out / _NbFrames) * _SCGXtl)
                Dim picture As New PictureBox
                picture.Name = "Picture" & _Compteur.ToString
                picture.Location = New Point(x1, 0 + 1)
                picture.Size = New Size(x2 - x1, _SCGYtl - 2)
                picture.BackColor = Color.Green
                picture.BringToFront()
                picture.Show()
                _CutsClip.PictureBox = picture
                _Container.Controls.Add(picture)
 
 
                _SortedListVideoEditCut.Add(Key, _CutsClip)
                Dim id As Integer = _SortedListVideoEditCut.IndexOfKey(Key)
                Dim Text As String = _CutsClip.Name & Convert.ToChar(Keys.Tab) & _CutsClip.Cut_In & Convert.ToChar(Keys.Tab) & _CutsClip.Cut_Out
                _ListBox.Items.Insert(id, Text)
 
                _Compteur += 1
            Else
                Throw New Exception("Le Clip existe déja !")
                Exit Sub
            End If
        End Sub
 
        Public Class CutsClip
            Private _Name As String
            Private _Key As Integer = -1
            Private _Cut_In As Integer
            Private _Cut_Out As Integer
            Private _PictureBox As PictureBox
            Public Sub Clear()
                _Name = ""
                _Key = -1
                _Cut_In = 0
                _Cut_Out = 0
            End Sub
            Public Property Name As String
                Get
                    Return _Name
                End Get
                Set(ByVal value As String)
                    _Name = value
                End Set
            End Property
            'Public Property Key As Integer
            '    Get
            '        Return _Key
            '    End Get
            '    Set(ByVal value As Integer)
            '        _Key = value
            '    End Set
            'End Property
            Public Property Cut_In As Integer
                Get
                    Return _Cut_In
                End Get
                Set(ByVal value As Integer)
                    If _Key = -1 Then
                        _Cut_In = value
                    Else
                        Throw New Exception("Un Clip déja enregistré ne peut pas être modifié")
                    End If
                End Set
            End Property
            Public Property Cut_Out As Integer
                Get
                    Return _Cut_Out
                End Get
                Set(ByVal value As Integer)
                    If _Key = -1 Then
                        _Cut_Out = value
                    Else
                        Throw New Exception("Un Clip déja enregistré ne peut pas être modifié")
                    End If
                End Set
            End Property
            Public Property PictureBox As PictureBox
                Get
                    Return _PictureBox
                End Get
                Set(ByVal value As PictureBox)
                    _PictureBox = value
                End Set
            End Property
        End Class
    End Class
End Class