Rafraichir un formulaire

**programmes** · 04/01/2013, 08h42

Bonjour à tous,

J'ai créé sous visual studio 2010, un formulaire qui affiche des images. Lors du load, j'ai créé un sub qui définit les pictures box. Je voudrais qu'il rafraichisse la fenêtre au fur et à mesure que les gadgets sont créer.

J'ai bien mis Gadget.refresh mais ça ne fonctionne pas.Pourquoi?
Merçi à vous tous.

**wallace1** · 04/01/2013, 09h08

Salut programmes,

Pourrais-tu être plus explicite et éventuellement poster le code de ton formulaire principal que je puisse t'aider stp, car je ne vois pas de quelle facon tu les charges ?

De plus de quelle faon charges-tu tes images , dynamiquement ? depuis le disque dur, les resources du projet ? la taille de tes images ?

A+

**programmes** · 04/01/2013, 10h24

C'est vrai que je suis pas très explicite. 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
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
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
 
 Public Sub AfficherVignettes()
      Patienter.Label1.Text = "Veuillez patienter..." & Chr(13) & "Création des vignettes"
        Patienter.Show()
        Dim Nombre, Ajouter, Index, x, y, Compte As Integer
        x = 15
        y = 10
        Index = 0
        Nombre = Val(LireINI("Menu", "Nombre", FichierIni))
        For Compte = 1 To Nombre
            Dim Fichier As String = LireINI("Menu", Str(Compte), FichierIni)
            Patienter.Label1.Text = "Veuillez patienter..." & Chr(13) & "Création des vignettes" & "(" & Str(Compte) & "/" & Str(Nombre) & ")"
            Patienter.Refresh()
            Select Case Choix
                Case 1 : Ajouter = 1
                Case 2 : If LireINI(Fichier, "DecoupeVideo", FichierIni) = "1" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
                Case 3 : If LireINI(Fichier, "DecoupeVideo", FichierIni) = "0" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
                Case 4 : If LireINI(Fichier, "DecoupeExtrait", FichierIni) = "1" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
                Case 5 : If LireINI(Fichier, "DecoupeExtrait", FichierIni) = "0" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
            End Select
            If Ajouter = 1 Then
                Index += 1
                EcrireINI("Videos", Str(Index), Fichier, SystemIni)
                Fichier = Repertoire & Mid(Fichier, 1, Len(Fichier) - 3) & "jpg"
                Dim FichierImage = Image.FromFile(WindowsApplication1.Menu.RepertoireSysteme & "Image.jpg")
                If System.IO.File.Exists(Fichier) Then : FichierImage = Image.FromFile(Fichier) : End If
                Dim Gadget As New PictureBox
                Select Case Compte
                    Case 1 : AddHandler Gadget.Click, AddressOf Image1_Click : AddHandler Gadget.DoubleClick, AddressOf Image1_DoubleClick
                    Case 2 : AddHandler Gadget.Click, AddressOf Image2_Click : AddHandler Gadget.DoubleClick, AddressOf Image2_DoubleClick
                    Case 3 : AddHandler Gadget.Click, AddressOf Image3_Click : AddHandler Gadget.DoubleClick, AddressOf Image3_DoubleClick
                    Case 4 : AddHandler Gadget.Click, AddressOf Image4_Click : AddHandler Gadget.DoubleClick, AddressOf Image4_DoubleClick
                    Case 5 : AddHandler Gadget.Click, AddressOf Image5_Click : AddHandler Gadget.DoubleClick, AddressOf Image5_DoubleClick
                    Case 6 : AddHandler Gadget.Click, AddressOf Image6_Click : AddHandler Gadget.DoubleClick, AddressOf Image6_DoubleClick
                    Case 7 : AddHandler Gadget.Click, AddressOf Image7_Click : AddHandler Gadget.DoubleClick, AddressOf Image7_DoubleClick
                    Case 8 : AddHandler Gadget.Click, AddressOf Image8_Click : AddHandler Gadget.DoubleClick, AddressOf Image8_DoubleClick
                    Case 9 : AddHandler Gadget.Click, AddressOf Image9_Click : AddHandler Gadget.DoubleClick, AddressOf Image9_DoubleClick
                    Case 10 : AddHandler Gadget.Click, AddressOf Image10_Click : AddHandler Gadget.DoubleClick, AddressOf Image10_DoubleClick
                    Case 11 : AddHandler Gadget.Click, AddressOf Image11_Click : AddHandler Gadget.DoubleClick, AddressOf Image11_DoubleClick
                    Case 12 : AddHandler Gadget.Click, AddressOf Image12_Click : AddHandler Gadget.DoubleClick, AddressOf Image12_DoubleClick
                    Case 13 : AddHandler Gadget.Click, AddressOf Image13_Click : AddHandler Gadget.DoubleClick, AddressOf Image13_DoubleClick
                    Case 14 : AddHandler Gadget.Click, AddressOf Image14_Click : AddHandler Gadget.DoubleClick, AddressOf Image14_DoubleClick
                    Case 15 : AddHandler Gadget.Click, AddressOf Image15_Click : AddHandler Gadget.DoubleClick, AddressOf Image15_DoubleClick
                    Case 16 : AddHandler Gadget.Click, AddressOf Image16_Click : AddHandler Gadget.DoubleClick, AddressOf Image16_DoubleClick
                    Case 17 : AddHandler Gadget.Click, AddressOf Image17_Click : AddHandler Gadget.DoubleClick, AddressOf Image17_DoubleClick
                    Case 18 : AddHandler Gadget.Click, AddressOf Image18_Click : AddHandler Gadget.DoubleClick, AddressOf Image18_DoubleClick
                    Case 19 : AddHandler Gadget.Click, AddressOf Image19_Click : AddHandler Gadget.DoubleClick, AddressOf Image19_DoubleClick
                    Case 20 : AddHandler Gadget.Click, AddressOf Image20_Click : AddHandler Gadget.DoubleClick, AddressOf Image20_DoubleClick
                    Case 21 : AddHandler Gadget.Click, AddressOf Image21_Click : AddHandler Gadget.DoubleClick, AddressOf Image21_DoubleClick
                    Case 22 : AddHandler Gadget.Click, AddressOf Image22_Click : AddHandler Gadget.DoubleClick, AddressOf Image22_DoubleClick
                    Case 23 : AddHandler Gadget.Click, AddressOf Image23_Click : AddHandler Gadget.DoubleClick, AddressOf Image23_DoubleClick
                    Case 24 : AddHandler Gadget.Click, AddressOf Image24_Click : AddHandler Gadget.DoubleClick, AddressOf Image24_DoubleClick
                    Case 25 : AddHandler Gadget.Click, AddressOf Image25_Click : AddHandler Gadget.DoubleClick, AddressOf Image25_DoubleClick
                    Case 26 : AddHandler Gadget.Click, AddressOf Image26_Click : AddHandler Gadget.DoubleClick, AddressOf Image26_DoubleClick
                    Case 27 : AddHandler Gadget.Click, AddressOf Image27_Click : AddHandler Gadget.DoubleClick, AddressOf Image27_DoubleClick
                    Case 28 : AddHandler Gadget.Click, AddressOf Image28_Click : AddHandler Gadget.DoubleClick, AddressOf Image28_DoubleClick
                    Case 29 : AddHandler Gadget.Click, AddressOf Image29_Click : AddHandler Gadget.DoubleClick, AddressOf Image29_DoubleClick
                    Case 30 : AddHandler Gadget.Click, AddressOf Image30_Click : AddHandler Gadget.DoubleClick, AddressOf Image30_DoubleClick
                    Case 31 : AddHandler Gadget.Click, AddressOf Image31_Click : AddHandler Gadget.DoubleClick, AddressOf Image31_DoubleClick
                    Case 32 : AddHandler Gadget.Click, AddressOf Image32_Click : AddHandler Gadget.DoubleClick, AddressOf Image32_DoubleClick
                    Case 33 : AddHandler Gadget.Click, AddressOf Image33_Click : AddHandler Gadget.DoubleClick, AddressOf Image33_DoubleClick
                    Case 34 : AddHandler Gadget.Click, AddressOf Image34_Click : AddHandler Gadget.DoubleClick, AddressOf Image34_DoubleClick
                    Case 35 : AddHandler Gadget.Click, AddressOf Image35_Click : AddHandler Gadget.DoubleClick, AddressOf Image35_DoubleClick
                    Case 36 : AddHandler Gadget.Click, AddressOf Image36_Click : AddHandler Gadget.DoubleClick, AddressOf Image36_DoubleClick
                    Case 37 : AddHandler Gadget.Click, AddressOf Image37_Click : AddHandler Gadget.DoubleClick, AddressOf Image37_DoubleClick
                    Case 38 : AddHandler Gadget.Click, AddressOf Image38_Click : AddHandler Gadget.DoubleClick, AddressOf Image38_DoubleClick
                    Case 39 : AddHandler Gadget.Click, AddressOf Image39_Click : AddHandler Gadget.DoubleClick, AddressOf Image39_DoubleClick
                    Case 40 : AddHandler Gadget.Click, AddressOf Image40_Click : AddHandler Gadget.DoubleClick, AddressOf Image40_DoubleClick
                    Case 41 : AddHandler Gadget.Click, AddressOf Image41_Click : AddHandler Gadget.DoubleClick, AddressOf Image41_DoubleClick
                    Case 42 : AddHandler Gadget.Click, AddressOf Image42_Click : AddHandler Gadget.DoubleClick, AddressOf Image42_DoubleClick
                    Case 43 : AddHandler Gadget.Click, AddressOf Image43_Click : AddHandler Gadget.DoubleClick, AddressOf Image43_DoubleClick
                    Case 44 : AddHandler Gadget.Click, AddressOf Image44_Click : AddHandler Gadget.DoubleClick, AddressOf Image44_DoubleClick
                    Case 45 : AddHandler Gadget.Click, AddressOf Image45_Click : AddHandler Gadget.DoubleClick, AddressOf Image45_DoubleClick
                    Case 46 : AddHandler Gadget.Click, AddressOf Image46_Click : AddHandler Gadget.DoubleClick, AddressOf Image46_DoubleClick
                    Case 47 : AddHandler Gadget.Click, AddressOf Image47_Click : AddHandler Gadget.DoubleClick, AddressOf Image47_DoubleClick
                    Case 48 : AddHandler Gadget.Click, AddressOf Image48_Click : AddHandler Gadget.DoubleClick, AddressOf Image48_DoubleClick
                    Case 49 : AddHandler Gadget.Click, AddressOf Image49_Click : AddHandler Gadget.DoubleClick, AddressOf Image49_DoubleClick
                    Case 50 : AddHandler Gadget.Click, AddressOf Image50_Click : AddHandler Gadget.DoubleClick, AddressOf Image50_DoubleClick
                    Case 51 : AddHandler Gadget.Click, AddressOf Image51_Click : AddHandler Gadget.DoubleClick, AddressOf Image51_DoubleClick
                    Case 52 : AddHandler Gadget.Click, AddressOf Image52_Click : AddHandler Gadget.DoubleClick, AddressOf Image52_DoubleClick
                    Case 53 : AddHandler Gadget.Click, AddressOf Image53_Click : AddHandler Gadget.DoubleClick, AddressOf Image53_DoubleClick
                    Case 54 : AddHandler Gadget.Click, AddressOf Image54_Click : AddHandler Gadget.DoubleClick, AddressOf Image54_DoubleClick
                    Case 55 : AddHandler Gadget.Click, AddressOf Image55_Click : AddHandler Gadget.DoubleClick, AddressOf Image55_DoubleClick
                    Case 56 : AddHandler Gadget.Click, AddressOf Image56_Click : AddHandler Gadget.DoubleClick, AddressOf Image56_DoubleClick
                    Case 57 : AddHandler Gadget.Click, AddressOf Image57_Click : AddHandler Gadget.DoubleClick, AddressOf Image57_DoubleClick
                    Case 58 : AddHandler Gadget.Click, AddressOf Image58_Click : AddHandler Gadget.DoubleClick, AddressOf Image58_DoubleClick
                    Case 59 : AddHandler Gadget.Click, AddressOf Image59_Click : AddHandler Gadget.DoubleClick, AddressOf Image59_DoubleClick
                    Case 60 : AddHandler Gadget.Click, AddressOf Image60_Click : AddHandler Gadget.DoubleClick, AddressOf Image60_DoubleClick
                    Case 61 : AddHandler Gadget.Click, AddressOf Image61_Click : AddHandler Gadget.DoubleClick, AddressOf Image61_DoubleClick
                    Case 62 : AddHandler Gadget.Click, AddressOf Image62_Click : AddHandler Gadget.DoubleClick, AddressOf Image62_DoubleClick
                    Case 63 : AddHandler Gadget.Click, AddressOf Image63_Click : AddHandler Gadget.DoubleClick, AddressOf Image63_DoubleClick
                    Case 64 : AddHandler Gadget.Click, AddressOf Image64_Click : AddHandler Gadget.DoubleClick, AddressOf Image64_DoubleClick
                    Case 65 : AddHandler Gadget.Click, AddressOf Image65_Click : AddHandler Gadget.DoubleClick, AddressOf Image65_DoubleClick
                    Case 66 : AddHandler Gadget.Click, AddressOf Image66_Click : AddHandler Gadget.DoubleClick, AddressOf Image66_DoubleClick
                    Case 67 : AddHandler Gadget.Click, AddressOf Image67_Click : AddHandler Gadget.DoubleClick, AddressOf Image67_DoubleClick
                    Case 68 : AddHandler Gadget.Click, AddressOf Image68_Click : AddHandler Gadget.DoubleClick, AddressOf Image68_DoubleClick
                    Case 69 : AddHandler Gadget.Click, AddressOf Image69_Click : AddHandler Gadget.DoubleClick, AddressOf Image69_DoubleClick
                    Case 70 : AddHandler Gadget.Click, AddressOf Image70_Click : AddHandler Gadget.DoubleClick, AddressOf Image70_DoubleClick
                    Case 71 : AddHandler Gadget.Click, AddressOf Image71_Click : AddHandler Gadget.DoubleClick, AddressOf Image71_DoubleClick
                    Case 72 : AddHandler Gadget.Click, AddressOf Image72_Click : AddHandler Gadget.DoubleClick, AddressOf Image72_DoubleClick
                    Case 73 : AddHandler Gadget.Click, AddressOf Image73_Click : AddHandler Gadget.DoubleClick, AddressOf Image73_DoubleClick
                    Case 74 : AddHandler Gadget.Click, AddressOf Image74_Click : AddHandler Gadget.DoubleClick, AddressOf Image74_DoubleClick
                    Case 75 : AddHandler Gadget.Click, AddressOf Image75_Click : AddHandler Gadget.DoubleClick, AddressOf Image75_DoubleClick
                    Case 76 : AddHandler Gadget.Click, AddressOf Image76_Click : AddHandler Gadget.DoubleClick, AddressOf Image76_DoubleClick
                    Case 77 : AddHandler Gadget.Click, AddressOf Image77_Click : AddHandler Gadget.DoubleClick, AddressOf Image77_DoubleClick
                    Case 78 : AddHandler Gadget.Click, AddressOf Image78_Click : AddHandler Gadget.DoubleClick, AddressOf Image78_DoubleClick
                    Case 79 : AddHandler Gadget.Click, AddressOf Image79_Click : AddHandler Gadget.DoubleClick, AddressOf Image79_DoubleClick
                    Case 80 : AddHandler Gadget.Click, AddressOf Image80_Click : AddHandler Gadget.DoubleClick, AddressOf Image80_DoubleClick
                    Case 81 : AddHandler Gadget.Click, AddressOf Image81_Click : AddHandler Gadget.DoubleClick, AddressOf Image81_DoubleClick
                    Case 82 : AddHandler Gadget.Click, AddressOf Image82_Click : AddHandler Gadget.DoubleClick, AddressOf Image82_DoubleClick
                    Case 83 : AddHandler Gadget.Click, AddressOf Image83_Click : AddHandler Gadget.DoubleClick, AddressOf Image83_DoubleClick
                    Case 84 : AddHandler Gadget.Click, AddressOf Image84_Click : AddHandler Gadget.DoubleClick, AddressOf Image84_DoubleClick
                    Case 85 : AddHandler Gadget.Click, AddressOf Image85_Click : AddHandler Gadget.DoubleClick, AddressOf Image85_DoubleClick
                    Case 86 : AddHandler Gadget.Click, AddressOf Image86_Click : AddHandler Gadget.DoubleClick, AddressOf Image86_DoubleClick
                    Case 87 : AddHandler Gadget.Click, AddressOf Image87_Click : AddHandler Gadget.DoubleClick, AddressOf Image87_DoubleClick
                    Case 88 : AddHandler Gadget.Click, AddressOf Image88_Click : AddHandler Gadget.DoubleClick, AddressOf Image88_DoubleClick
                    Case 89 : AddHandler Gadget.Click, AddressOf Image89_Click : AddHandler Gadget.DoubleClick, AddressOf Image89_DoubleClick
                    Case 90 : AddHandler Gadget.Click, AddressOf Image90_Click : AddHandler Gadget.DoubleClick, AddressOf Image90_DoubleClick
                    Case 91 : AddHandler Gadget.Click, AddressOf Image91_Click : AddHandler Gadget.DoubleClick, AddressOf Image91_DoubleClick
                    Case 92 : AddHandler Gadget.Click, AddressOf Image92_Click : AddHandler Gadget.DoubleClick, AddressOf Image92_DoubleClick
                    Case 93 : AddHandler Gadget.Click, AddressOf Image93_Click : AddHandler Gadget.DoubleClick, AddressOf Image93_DoubleClick
                    Case 94 : AddHandler Gadget.Click, AddressOf Image94_Click : AddHandler Gadget.DoubleClick, AddressOf Image94_DoubleClick
                    Case 95 : AddHandler Gadget.Click, AddressOf Image95_Click : AddHandler Gadget.DoubleClick, AddressOf Image95_DoubleClick
                    Case 96 : AddHandler Gadget.Click, AddressOf Image96_Click : AddHandler Gadget.DoubleClick, AddressOf Image96_DoubleClick
                    Case 97 : AddHandler Gadget.Click, AddressOf Image97_Click : AddHandler Gadget.DoubleClick, AddressOf Image97_DoubleClick
                    Case 98 : AddHandler Gadget.Click, AddressOf Image98_Click : AddHandler Gadget.DoubleClick, AddressOf Image98_DoubleClick
                    Case 99 : AddHandler Gadget.Click, AddressOf Image99_Click : AddHandler Gadget.DoubleClick, AddressOf Image99_DoubleClick
                    Case 100 : AddHandler Gadget.Click, AddressOf Image100_Click : AddHandler Gadget.DoubleClick, AddressOf Image100_DoubleClick
                    Case 101 : AddHandler Gadget.Click, AddressOf Image101_Click : AddHandler Gadget.DoubleClick, AddressOf Image101_DoubleClick
                    Case 102 : AddHandler Gadget.Click, AddressOf Image102_Click : AddHandler Gadget.DoubleClick, AddressOf Image102_DoubleClick
                    Case 103 : AddHandler Gadget.Click, AddressOf Image103_Click : AddHandler Gadget.DoubleClick, AddressOf Image103_DoubleClick
                    Case 104 : AddHandler Gadget.Click, AddressOf Image104_Click : AddHandler Gadget.DoubleClick, AddressOf Image104_DoubleClick
                    Case 105 : AddHandler Gadget.Click, AddressOf Image105_Click : AddHandler Gadget.DoubleClick, AddressOf Image105_DoubleClick
                    Case 106 : AddHandler Gadget.Click, AddressOf Image106_Click : AddHandler Gadget.DoubleClick, AddressOf Image106_DoubleClick
                    Case 107 : AddHandler Gadget.Click, AddressOf Image107_Click : AddHandler Gadget.DoubleClick, AddressOf Image107_DoubleClick
                    Case 108 : AddHandler Gadget.Click, AddressOf Image108_Click : AddHandler Gadget.DoubleClick, AddressOf Image108_DoubleClick
                    Case 109 : AddHandler Gadget.Click, AddressOf Image109_Click : AddHandler Gadget.DoubleClick, AddressOf Image109_DoubleClick
                    Case 110 : AddHandler Gadget.Click, AddressOf Image110_Click : AddHandler Gadget.DoubleClick, AddressOf Image110_DoubleClick
                    Case 111 : AddHandler Gadget.Click, AddressOf Image111_Click : AddHandler Gadget.DoubleClick, AddressOf Image111_DoubleClick
                    Case 112 : AddHandler Gadget.Click, AddressOf Image112_Click : AddHandler Gadget.DoubleClick, AddressOf Image112_DoubleClick
                    Case 113 : AddHandler Gadget.Click, AddressOf Image113_Click : AddHandler Gadget.DoubleClick, AddressOf Image113_DoubleClick
                    Case 114 : AddHandler Gadget.Click, AddressOf Image114_Click : AddHandler Gadget.DoubleClick, AddressOf Image114_DoubleClick
                    Case 115 : AddHandler Gadget.Click, AddressOf Image115_Click : AddHandler Gadget.DoubleClick, AddressOf Image115_DoubleClick
                    Case 116 : AddHandler Gadget.Click, AddressOf Image116_Click : AddHandler Gadget.DoubleClick, AddressOf Image116_DoubleClick
                    Case 117 : AddHandler Gadget.Click, AddressOf Image117_Click : AddHandler Gadget.DoubleClick, AddressOf Image117_DoubleClick
                    Case 118 : AddHandler Gadget.Click, AddressOf Image118_Click : AddHandler Gadget.DoubleClick, AddressOf Image118_DoubleClick
                    Case 119 : AddHandler Gadget.Click, AddressOf Image119_Click : AddHandler Gadget.DoubleClick, AddressOf Image119_DoubleClick
                    Case 120 : AddHandler Gadget.Click, AddressOf Image120_Click : AddHandler Gadget.DoubleClick, AddressOf Image120_DoubleClick
                    Case 121 : AddHandler Gadget.Click, AddressOf Image121_Click : AddHandler Gadget.DoubleClick, AddressOf Image121_DoubleClick
                    Case 122 : AddHandler Gadget.Click, AddressOf Image122_Click : AddHandler Gadget.DoubleClick, AddressOf Image122_DoubleClick
                    Case 123 : AddHandler Gadget.Click, AddressOf Image123_Click : AddHandler Gadget.DoubleClick, AddressOf Image123_DoubleClick
                    Case 124 : AddHandler Gadget.Click, AddressOf Image124_Click : AddHandler Gadget.DoubleClick, AddressOf Image124_DoubleClick
                    Case 125 : AddHandler Gadget.Click, AddressOf Image125_Click : AddHandler Gadget.DoubleClick, AddressOf Image125_DoubleClick
                    Case 126 : AddHandler Gadget.Click, AddressOf Image126_Click : AddHandler Gadget.DoubleClick, AddressOf Image126_DoubleClick
                    Case 127 : AddHandler Gadget.Click, AddressOf Image127_Click : AddHandler Gadget.DoubleClick, AddressOf Image127_DoubleClick
                    Case 128 : AddHandler Gadget.Click, AddressOf Image128_Click : AddHandler Gadget.DoubleClick, AddressOf Image128_DoubleClick
                    Case 129 : AddHandler Gadget.Click, AddressOf Image129_Click : AddHandler Gadget.DoubleClick, AddressOf Image129_DoubleClick
                    Case 130 : AddHandler Gadget.Click, AddressOf Image130_Click : AddHandler Gadget.DoubleClick, AddressOf Image130_DoubleClick
                    Case 131 : AddHandler Gadget.Click, AddressOf Image131_Click : AddHandler Gadget.DoubleClick, AddressOf Image131_DoubleClick
                    Case 132 : AddHandler Gadget.Click, AddressOf Image132_Click : AddHandler Gadget.DoubleClick, AddressOf Image132_DoubleClick
                    Case 133 : AddHandler Gadget.Click, AddressOf Image133_Click : AddHandler Gadget.DoubleClick, AddressOf Image133_DoubleClick
                    Case 134 : AddHandler Gadget.Click, AddressOf Image134_Click : AddHandler Gadget.DoubleClick, AddressOf Image134_DoubleClick
                    Case 135 : AddHandler Gadget.Click, AddressOf Image135_Click : AddHandler Gadget.DoubleClick, AddressOf Image135_DoubleClick
                    Case 136 : AddHandler Gadget.Click, AddressOf Image136_Click : AddHandler Gadget.DoubleClick, AddressOf Image136_DoubleClick
                    Case 137 : AddHandler Gadget.Click, AddressOf Image137_Click : AddHandler Gadget.DoubleClick, AddressOf Image137_DoubleClick
                    Case 138 : AddHandler Gadget.Click, AddressOf Image138_Click : AddHandler Gadget.DoubleClick, AddressOf Image138_DoubleClick
                    Case 139 : AddHandler Gadget.Click, AddressOf Image139_Click : AddHandler Gadget.DoubleClick, AddressOf Image139_DoubleClick
                    Case 140 : AddHandler Gadget.Click, AddressOf Image140_Click : AddHandler Gadget.DoubleClick, AddressOf Image140_DoubleClick
                    Case 141 : AddHandler Gadget.Click, AddressOf Image141_Click : AddHandler Gadget.DoubleClick, AddressOf Image141_DoubleClick
                    Case 142 : AddHandler Gadget.Click, AddressOf Image142_Click : AddHandler Gadget.DoubleClick, AddressOf Image142_DoubleClick
                    Case 143 : AddHandler Gadget.Click, AddressOf Image143_Click : AddHandler Gadget.DoubleClick, AddressOf Image143_DoubleClick
                    Case 144 : AddHandler Gadget.Click, AddressOf Image144_Click : AddHandler Gadget.DoubleClick, AddressOf Image144_DoubleClick
                    Case 145 : AddHandler Gadget.Click, AddressOf Image145_Click : AddHandler Gadget.DoubleClick, AddressOf Image145_DoubleClick
                    Case 146 : AddHandler Gadget.Click, AddressOf Image146_Click : AddHandler Gadget.DoubleClick, AddressOf Image146_DoubleClick
                    Case 147 : AddHandler Gadget.Click, AddressOf Image147_Click : AddHandler Gadget.DoubleClick, AddressOf Image147_DoubleClick
                    Case 148 : AddHandler Gadget.Click, AddressOf Image148_Click : AddHandler Gadget.DoubleClick, AddressOf Image148_DoubleClick
                    Case 149 : AddHandler Gadget.Click, AddressOf Image149_Click : AddHandler Gadget.DoubleClick, AddressOf Image149_DoubleClick
                    Case 150 : AddHandler Gadget.Click, AddressOf Image150_Click : AddHandler Gadget.DoubleClick, AddressOf Image150_DoubleClick
                    Case 151 : AddHandler Gadget.Click, AddressOf Image151_Click : AddHandler Gadget.DoubleClick, AddressOf Image151_DoubleClick
                    Case 152 : AddHandler Gadget.Click, AddressOf Image152_Click : AddHandler Gadget.DoubleClick, AddressOf Image152_DoubleClick
                    Case 153 : AddHandler Gadget.Click, AddressOf Image153_Click : AddHandler Gadget.DoubleClick, AddressOf Image153_DoubleClick
                    Case 154 : AddHandler Gadget.Click, AddressOf Image154_Click : AddHandler Gadget.DoubleClick, AddressOf Image154_DoubleClick
                    Case 155 : AddHandler Gadget.Click, AddressOf Image155_Click : AddHandler Gadget.DoubleClick, AddressOf Image155_DoubleClick
                    Case 156 : AddHandler Gadget.Click, AddressOf Image156_Click : AddHandler Gadget.DoubleClick, AddressOf Image156_DoubleClick
                    Case 157 : AddHandler Gadget.Click, AddressOf Image157_Click : AddHandler Gadget.DoubleClick, AddressOf Image157_DoubleClick
                    Case 158 : AddHandler Gadget.Click, AddressOf Image158_Click : AddHandler Gadget.DoubleClick, AddressOf Image158_DoubleClick
                    Case 159 : AddHandler Gadget.Click, AddressOf Image159_Click : AddHandler Gadget.DoubleClick, AddressOf Image159_DoubleClick
                    Case 160 : AddHandler Gadget.Click, AddressOf Image160_Click : AddHandler Gadget.DoubleClick, AddressOf Image160_DoubleClick
                    Case 161 : AddHandler Gadget.Click, AddressOf Image161_Click : AddHandler Gadget.DoubleClick, AddressOf Image161_DoubleClick
                    Case 162 : AddHandler Gadget.Click, AddressOf Image162_Click : AddHandler Gadget.DoubleClick, AddressOf Image162_DoubleClick
                    Case 163 : AddHandler Gadget.Click, AddressOf Image163_Click : AddHandler Gadget.DoubleClick, AddressOf Image163_DoubleClick
                    Case 164 : AddHandler Gadget.Click, AddressOf Image164_Click : AddHandler Gadget.DoubleClick, AddressOf Image164_DoubleClick
                    Case 165 : AddHandler Gadget.Click, AddressOf Image165_Click : AddHandler Gadget.DoubleClick, AddressOf Image165_DoubleClick
                    Case 166 : AddHandler Gadget.Click, AddressOf Image166_Click : AddHandler Gadget.DoubleClick, AddressOf Image166_DoubleClick
                    Case 167 : AddHandler Gadget.Click, AddressOf Image167_Click : AddHandler Gadget.DoubleClick, AddressOf Image167_DoubleClick
                    Case 168 : AddHandler Gadget.Click, AddressOf Image168_Click : AddHandler Gadget.DoubleClick, AddressOf Image168_DoubleClick
                    Case 169 : AddHandler Gadget.Click, AddressOf Image169_Click : AddHandler Gadget.DoubleClick, AddressOf Image169_DoubleClick
                    Case 170 : AddHandler Gadget.Click, AddressOf Image170_Click : AddHandler Gadget.DoubleClick, AddressOf Image170_DoubleClick
                    Case 171 : AddHandler Gadget.Click, AddressOf Image171_Click : AddHandler Gadget.DoubleClick, AddressOf Image171_DoubleClick
                    Case 172 : AddHandler Gadget.Click, AddressOf Image172_Click : AddHandler Gadget.DoubleClick, AddressOf Image172_DoubleClick
                    Case 173 : AddHandler Gadget.Click, AddressOf Image173_Click : AddHandler Gadget.DoubleClick, AddressOf Image173_DoubleClick
                    Case 174 : AddHandler Gadget.Click, AddressOf Image174_Click : AddHandler Gadget.DoubleClick, AddressOf Image174_DoubleClick
                    Case 175 : AddHandler Gadget.Click, AddressOf Image175_Click : AddHandler Gadget.DoubleClick, AddressOf Image175_DoubleClick
                    Case 176 : AddHandler Gadget.Click, AddressOf Image176_Click : AddHandler Gadget.DoubleClick, AddressOf Image176_DoubleClick
                    Case 177 : AddHandler Gadget.Click, AddressOf Image177_Click : AddHandler Gadget.DoubleClick, AddressOf Image177_DoubleClick
                    Case 178 : AddHandler Gadget.Click, AddressOf Image178_Click : AddHandler Gadget.DoubleClick, AddressOf Image178_DoubleClick
                    Case 179 : AddHandler Gadget.Click, AddressOf Image179_Click : AddHandler Gadget.DoubleClick, AddressOf Image179_DoubleClick
                    Case 180 : AddHandler Gadget.Click, AddressOf Image180_Click : AddHandler Gadget.DoubleClick, AddressOf Image180_DoubleClick
                    Case 181 : AddHandler Gadget.Click, AddressOf Image181_Click : AddHandler Gadget.DoubleClick, AddressOf Image181_DoubleClick
                    Case 182 : AddHandler Gadget.Click, AddressOf Image182_Click : AddHandler Gadget.DoubleClick, AddressOf Image182_DoubleClick
                    Case 183 : AddHandler Gadget.Click, AddressOf Image183_Click : AddHandler Gadget.DoubleClick, AddressOf Image183_DoubleClick
                    Case 184 : AddHandler Gadget.Click, AddressOf Image184_Click : AddHandler Gadget.DoubleClick, AddressOf Image184_DoubleClick
                    Case 185 : AddHandler Gadget.Click, AddressOf Image185_Click : AddHandler Gadget.DoubleClick, AddressOf Image185_DoubleClick
                    Case 186 : AddHandler Gadget.Click, AddressOf Image186_Click : AddHandler Gadget.DoubleClick, AddressOf Image186_DoubleClick
                    Case 187 : AddHandler Gadget.Click, AddressOf Image187_Click : AddHandler Gadget.DoubleClick, AddressOf Image187_DoubleClick
                    Case 188 : AddHandler Gadget.Click, AddressOf Image188_Click : AddHandler Gadget.DoubleClick, AddressOf Image188_DoubleClick
                    Case 189 : AddHandler Gadget.Click, AddressOf Image189_Click : AddHandler Gadget.DoubleClick, AddressOf Image189_DoubleClick
                    Case 190 : AddHandler Gadget.Click, AddressOf Image190_Click : AddHandler Gadget.DoubleClick, AddressOf Image190_DoubleClick
                    Case 191 : AddHandler Gadget.Click, AddressOf Image191_Click : AddHandler Gadget.DoubleClick, AddressOf Image191_DoubleClick
                    Case 192 : AddHandler Gadget.Click, AddressOf Image192_Click : AddHandler Gadget.DoubleClick, AddressOf Image192_DoubleClick
                    Case 193 : AddHandler Gadget.Click, AddressOf Image193_Click : AddHandler Gadget.DoubleClick, AddressOf Image193_DoubleClick
                    Case 194 : AddHandler Gadget.Click, AddressOf Image194_Click : AddHandler Gadget.DoubleClick, AddressOf Image194_DoubleClick
                    Case 195 : AddHandler Gadget.Click, AddressOf Image195_Click : AddHandler Gadget.DoubleClick, AddressOf Image195_DoubleClick
                    Case 196 : AddHandler Gadget.Click, AddressOf Image196_Click : AddHandler Gadget.DoubleClick, AddressOf Image196_DoubleClick
                    Case 197 : AddHandler Gadget.Click, AddressOf Image197_Click : AddHandler Gadget.DoubleClick, AddressOf Image197_DoubleClick
                    Case 198 : AddHandler Gadget.Click, AddressOf Image198_Click : AddHandler Gadget.DoubleClick, AddressOf Image198_DoubleClick
                    Case 199 : AddHandler Gadget.Click, AddressOf Image199_Click : AddHandler Gadget.DoubleClick, AddressOf Image199_DoubleClick
                    Case 200 : AddHandler Gadget.Click, AddressOf Image200_Click : AddHandler Gadget.DoubleClick, AddressOf Image200_DoubleClick
                    Case 201 : AddHandler Gadget.Click, AddressOf Image201_Click : AddHandler Gadget.DoubleClick, AddressOf Image201_DoubleClick
                    Case 202 : AddHandler Gadget.Click, AddressOf Image202_Click : AddHandler Gadget.DoubleClick, AddressOf Image202_DoubleClick
                    Case 203 : AddHandler Gadget.Click, AddressOf Image203_Click : AddHandler Gadget.DoubleClick, AddressOf Image203_DoubleClick
                    Case 204 : AddHandler Gadget.Click, AddressOf Image204_Click : AddHandler Gadget.DoubleClick, AddressOf Image204_DoubleClick
                    Case 205 : AddHandler Gadget.Click, AddressOf Image205_Click : AddHandler Gadget.DoubleClick, AddressOf Image205_DoubleClick
                    Case 206 : AddHandler Gadget.Click, AddressOf Image206_Click : AddHandler Gadget.DoubleClick, AddressOf Image206_DoubleClick
                    Case 207 : AddHandler Gadget.Click, AddressOf Image207_Click : AddHandler Gadget.DoubleClick, AddressOf Image207_DoubleClick
                    Case 208 : AddHandler Gadget.Click, AddressOf Image208_Click : AddHandler Gadget.DoubleClick, AddressOf Image208_DoubleClick
                    Case 209 : AddHandler Gadget.Click, AddressOf Image209_Click : AddHandler Gadget.DoubleClick, AddressOf Image209_DoubleClick
                    Case 210 : AddHandler Gadget.Click, AddressOf Image210_Click : AddHandler Gadget.DoubleClick, AddressOf Image210_DoubleClick
                End Select
                Me.Activate()
                Gadget.Name = "Image" & Trim(Str(Compte))
                Gadget.Height = 270
                Gadget.Width = 190
                Gadget.Left = x
                Gadget.Top = y
                Gadget.Visible = True
                Gadget.BorderStyle = BorderStyle.Fixed3D
                Gadget.BackgroundImageLayout = ImageLayout.Stretch
                Gadget.Cursor = Cursors.Hand
                Gadget.ContextMenuStrip = ContextMenuStrip1
                If System.IO.File.Exists(Fichier) Then
                    Dim myBitmap = New Bitmap(FichierImage)
                    FichierImage.Dispose()
                    FichierImage = Nothing
                    Gadget.BackgroundImage = myBitmap
                End If
                Me.Controls.Add(Gadget)
                Application.DoEvents()
                x += 210 '200
                If x = 1905 Then : x = 15 : y += 280 : End If '1425
            End If
        Next
        If x = 15 Then : Me.AutoScrollMinSize = New Size(0, y + 10)
        Else : Me.AutoScrollMinSize = New Size(0, y + 280) : End If
        Patienter.Hide()
End Sub
    Private Sub Site_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AfficherVignettes()
    End Sub

**Rainui** · 04/01/2013, 11h08

Bonjour,

D'après ce que je comprends de ton code, tu récupère les images dans un dossier choisit par l'utilisateur.

Est ce bien ça?

Si c'est le cas, il existe des méthodes plus simple pour créer dynamiquement toutes les PicturesBox.

Je ne comprends pas la syntaxe de :

Code :

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

1
2
3
4
5
6
7
8
 
Select Case Choix
      Case 1 : Ajouter = 1
      Case 2 : If LireINI(Fichier, "DecoupeVideo", FichierIni) = "1" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
      Case 3 : If LireINI(Fichier, "DecoupeVideo", FichierIni) = "0" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
      Case 4 : If LireINI(Fichier, "DecoupeExtrait", FichierIni) = "1" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
      Case 5 : If LireINI(Fichier, "DecoupeExtrait", FichierIni) = "0" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
End Select

Votre fonction LireINI() à quoi sert elle?

**wallace1** · 04/01/2013, 11h13

@programmes :

O_O....une usine à gaz dira-t-on ...mais on n'est pas là pour ca...^^

En fait il faut que tu charges ta fonction "AfficherVignettes" dans un Thread car les opérations de longues durée nécessitant le raffraichissement de controles doivent impérativement passées par des processus pour éviter que la fenêtre principale ne freeze.... (.. et c'est ce qu'il se passe au moment du Load du formulaire principal !!) .

Utilise 1 backgroundWorker avec le reportProgress pour mettre à jour tes controles : Label, pictureBox, ...etc....

Pourquoi n'utilises-tu pas 1 controle listview pour afficher tes images au lieu de toutes ces Picturebox ???

A+

**programmes** · 04/01/2013, 11h14

En fai, le programme sert à classer des vidéos et la fonction choix est utilisé pour savoir si les vidéos ont été mises à jour.
Quand aux fonctions LireIni et EcrireIni elles servent à lire et à écrire dans un fichier ini qui contient toutes les vidéos.

**wallace1** · 04/01/2013, 11h32

Votre fonction LireINI() à quoi sert elle?

Sa fonction LireINI permet de lire la structure d'1 fichier de configuration ".ini" (Section, clé, valeur)

Cordialement

**wallace1** · 04/01/2013, 13h40

Voilà j'ai fais ca vite fais pour que tu vois à quoi ressemble une opération de type "Thread" avec "Mise à jour des controles du formulaire principal" :

1- Créé 1 projet
2- Ajoute 1 listview
3- Ajoute 1 backgroundWorker

4- Si tu n'as pas d'images dans le répertoire : "C:\Windows\Web\Wallpaper" modifie la variable dans le code et mets au moins une dizaine d'image d'1 poids conséquent pour véritablement te rendre compte du travail du thread et de la mise à jour GUI.

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
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
 
Public Class Form1
 
    Private fbd As FolderBrowserDialog
    Private Imglist As ImageList
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        fbd = New FolderBrowserDialog
        Imglist = New ImageList
        Imglist.ColorDepth = ColorDepth.Depth32Bit
        'Paramétrage du listview (tu peux le faire en mode concepteur de vue ou depuis la fenêtre des propriétés du controle)
        Me.ListView1.Dock = DockStyle.Fill
        Me.ListView1.LargeImageList = Imglist
        Me.ListView1.SmallImageList = Imglist
        'Paramétrage du BackgroundWorker (tu peux le faire en mode concepteur de vue ou depuis la fenêtre des propriétés du controle)
        Me.BackgroundWorker1.WorkerReportsProgress = True
        Me.BackgroundWorker1.WorkerSupportsCancellation = True
        Me.BackgroundWorker1.RunWorkerAsync()
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        For Each f As String In System.IO.Directory.GetFiles("C:\Windows\Web\Wallpaper", "*.jpg", IO.SearchOption.AllDirectories)
            Dim fi As New System.IO.FileInfo(f)
            Try
                Dim items As String() = New String(3) {}
                items(0) = System.IO.Path.GetFileNameWithoutExtension(f)
                items(1) = fi.FullName
                items(2) = fi.Extension
                Dim item As New ListViewItem(items)
                Dim img As Image = GetAutoSizeImage(Bitmap.FromFile(f), New Size(100, 100))
                Me.BackgroundWorker1.ReportProgress(Nothing, New Object() {item, img})
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        Next
    End Sub
 
    Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        Try
            Dim lvi As ListViewItem = TryCast(e.UserState(0), ListViewItem)
            Dim img As Image = TryCast(e.UserState(1), Image)
            If Not lvi Is Nothing And Not img Is Nothing Then
                Me.Text = "Chargement de l'image : " & lvi.Text
                Imglist.ImageSize = New Size(img.Width, img.Height)
                Imglist.Images.Add(img)
                lvi.ImageIndex = Imglist.Images.Count - 1
                Me.ListView1.Items.AddRange(New ListViewItem() {lvi})
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
 
    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        MsgBox("Chargement terminé", MsgBoxStyle.Information, "Eh eh")
    End Sub
 
    Private Function GetAutoSizeImage(ByVal Img As Bitmap, ByVal siz As Size) As Image
        Dim imgOrg As Bitmap
        Dim imgShow As Bitmap
        Dim g As Graphics
        Dim divideBy, divideByH, divideByW As Double
        imgOrg = Img
        divideByW = imgOrg.Width / siz.Width
        divideByH = imgOrg.Height / siz.Height
        If divideByW > 1 Or divideByH > 1 Then
            If divideByW > divideByH Then
                divideBy = divideByW
            Else
                divideBy = divideByH
            End If
            imgShow = New Bitmap(CInt(CDbl(imgOrg.Width) / divideBy), CInt(CDbl(imgOrg.Height) / divideBy))
            imgShow.SetResolution(imgOrg.HorizontalResolution, imgOrg.VerticalResolution)
            g = Graphics.FromImage(imgShow)
            g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
            g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
            g.DrawImage(imgOrg, New Rectangle(0, 0, CInt(CDbl(imgOrg.Width) / divideBy), CInt(CDbl(imgOrg.Height) / divideBy)), 0, 0, imgOrg.Width, imgOrg.Height, GraphicsUnit.Pixel)
            g.Dispose()
        Else
            imgShow = New Bitmap(imgOrg.Width, imgOrg.Height)
            imgShow.SetResolution(imgOrg.HorizontalResolution, imgOrg.VerticalResolution)
            g = Graphics.FromImage(imgShow)
            g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
            g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
            g.DrawImage(imgOrg, New Rectangle(0, 0, imgOrg.Width, imgOrg.Height), 0, 0, imgOrg.Width, imgOrg.Height, GraphicsUnit.Pixel)
            g.Dispose()
        End If
        imgOrg.Dispose()
        Return imgShow
    End Function
End Class

PS0 : j'ai volontairement placé le paramétrage de contrôle dans le gestionnaire d'évènement "Load" du formulaire principal afin de ne pas avoir a détaillé le paramétrage de chaque .... mais tu peux aussi bien :

1- poser tes controles
2- les paramétrer à l'aide de la fenêtre de propriétés.

PS1 : tu observeras la mise à jour du titre de la fenêtre avec les noms des images qui se chargent au fur et à mesure sans que cela ne freeze (gèle) la fenêtre principale.

A+

**programmes** · 04/01/2013, 17h27

Je te remercie beaucoup çà répond tout à fait à ma question

A+

**programmes** · 04/01/2013, 19h46

Merci pour toutes vos réponses

Maintenant, je voudrais que la barre verticale défile au fur et à mesure que les images s'affichent (quand la position de l'image dépasse la hauteur de l'écran). Je pense que çà doit être possible?

Merçi à vous tous pour votre aide...

**wallace1** · 04/01/2013, 20h41

Ok comme il faut que l'apprentissage te soit profitable je te suggère, avant que je te donne une quelconque réponse toute faite ("codé" comme mon exemple ci dessus)... ,de réfléchir sur le fonctionnement d'une ProgressBar :

- Quelles données lui faut elle pour être mise à jour ?
- A quel moment dans le code que je t'ai fais (dans les précédents posts) sera-t-elle mise à jour selon toi ?

PS0 : Oui c'est tout à fait faisable

PS1 : La programmation c'est pas des portions de codes copié/collées ca et là, c'est une étude avec des données (d'entrée et de sortie) qui permet de trouver la solution adaptée à ton besoin.
J'aime bien aidé mais il faut aussi y mettre du votre les gars.

Cordialement

Rafraichir un formulaire

VB.NET

Discussions similaires

Partager

Partager