Racourcir un code

Invité · 09/06/2012, 09h03

Bonjour,
Mon problème est simple, il faut juste raccourcir un 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
    Sub Case0_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_0.Click
        Clic(New Coordonnees(0, 0))
    End Sub
    Sub Case0_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_1.Click
        Clic(New Coordonnees(0, 1))
    End Sub
    Sub Case0_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_2.Click
        Clic(New Coordonnees(0, 2))
    End Sub
    Sub Case0_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_3.Click
        Clic(New Coordonnees(0, 3))
    End Sub
    Sub Case0_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_4.Click
        Clic(New Coordonnees(0, 4))
    End Sub
    Sub Case0_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_5.Click
        Clic(New Coordonnees(0, 5))
    End Sub
    Sub Case0_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_6.Click
        Clic(New Coordonnees(0, 6))
    End Sub
    Sub Case0_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_7.Click
        Clic(New Coordonnees(0, 7))
    End Sub
    Sub Case0_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_8.Click
        Clic(New Coordonnees(0, 8))
    End Sub
    Sub Case0_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_9.Click
        Clic(New Coordonnees(0, 9))
    End Sub
    Sub Case0_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case0_10.Click
        Clic(New Coordonnees(0, 10))
    End Sub
    Sub Case1_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_0.Click
        Clic(New Coordonnees(1, 0))
    End Sub
    Sub Case1_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_1.Click
        Clic(New Coordonnees(1, 1))
    End Sub
    Sub Case1_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_2.Click
        Clic(New Coordonnees(1, 2))
    End Sub
    Sub Case1_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_3.Click
        Clic(New Coordonnees(1, 3))
    End Sub
    Sub Case1_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_4.Click
        Clic(New Coordonnees(1, 4))
    End Sub
    Sub Case1_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_5.Click
        Clic(New Coordonnees(1, 5))
    End Sub
    Sub Case1_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_6.Click
        Clic(New Coordonnees(1, 6))
    End Sub
    Sub Case1_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_7.Click
        Clic(New Coordonnees(1, 7))
    End Sub
    Sub Case1_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_8.Click
        Clic(New Coordonnees(1, 8))
    End Sub
    Sub Case1_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_9.Click
        Clic(New Coordonnees(1, 9))
    End Sub
    Sub Case1_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case1_10.Click
        Clic(New Coordonnees(1, 10))
    End Sub
    Sub Case2_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_0.Click
        Clic(New Coordonnees(2, 0))
    End Sub
    Sub Case2_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_1.Click
        Clic(New Coordonnees(2, 1))
    End Sub
    Sub Case2_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_2.Click
        Clic(New Coordonnees(2, 2))
    End Sub
    Sub Case2_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_3.Click
        Clic(New Coordonnees(2, 3))
    End Sub
    Sub Case2_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_4.Click
        Clic(New Coordonnees(2, 4))
    End Sub
    Sub Case2_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_5.Click
        Clic(New Coordonnees(2, 5))
    End Sub
    Sub Case2_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_6.Click
        Clic(New Coordonnees(2, 6))
    End Sub
    Sub Case2_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_7.Click
        Clic(New Coordonnees(2, 7))
    End Sub
    Sub Case2_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_8.Click
        Clic(New Coordonnees(2, 8))
    End Sub
    Sub Case2_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_9.Click
        Clic(New Coordonnees(2, 9))
    End Sub
    Sub Case2_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case2_10.Click
        Clic(New Coordonnees(2, 10))
    End Sub
    Sub Case3_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_0.Click
        Clic(New Coordonnees(3, 0))
    End Sub
    Sub Case3_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_1.Click
        Clic(New Coordonnees(3, 1))
    End Sub
    Sub Case3_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_2.Click
        Clic(New Coordonnees(3, 2))
    End Sub
    Sub Case3_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_3.Click
        Clic(New Coordonnees(3, 3))
    End Sub
    Sub Case3_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_4.Click
        Clic(New Coordonnees(3, 4))
    End Sub
    Sub Case3_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_5.Click
        Clic(New Coordonnees(3, 5))
    End Sub
    Sub Case3_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_6.Click
        Clic(New Coordonnees(3, 6))
    End Sub
    Sub Case3_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_7.Click
        Clic(New Coordonnees(3, 7))
    End Sub
    Sub Case3_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_8.Click
        Clic(New Coordonnees(3, 8))
    End Sub
    Sub Case3_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_9.Click
        Clic(New Coordonnees(3, 9))
    End Sub
    Sub Case3_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case3_10.Click
        Clic(New Coordonnees(3, 10))
    End Sub
    Sub Case4_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_0.Click
        Clic(New Coordonnees(4, 0))
    End Sub
    Sub Case4_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_1.Click
        Clic(New Coordonnees(4, 1))
    End Sub
    Sub Case4_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_2.Click
        Clic(New Coordonnees(4, 2))
    End Sub
    Sub Case4_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_3.Click
        Clic(New Coordonnees(4, 3))
    End Sub
    Sub Case4_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_4.Click
        Clic(New Coordonnees(4, 4))
    End Sub
    Sub Case4_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_5.Click
        Clic(New Coordonnees(4, 5))
    End Sub
    Sub Case4_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_6.Click
        Clic(New Coordonnees(4, 6))
    End Sub
    Sub Case4_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_7.Click
        Clic(New Coordonnees(4, 7))
    End Sub
    Sub Case4_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_8.Click
        Clic(New Coordonnees(4, 8))
    End Sub
    Sub Case4_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_9.Click
        Clic(New Coordonnees(4, 9))
    End Sub
    Sub Case4_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case4_10.Click
        Clic(New Coordonnees(4, 10))
    End Sub
    Sub Case5_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_0.Click
        Clic(New Coordonnees(5, 0))
    End Sub
    Sub Case5_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_1.Click
        Clic(New Coordonnees(5, 1))
    End Sub
    Sub Case5_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_2.Click
        Clic(New Coordonnees(5, 2))
    End Sub
    Sub Case5_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_3.Click
        Clic(New Coordonnees(5, 3))
    End Sub
    Sub Case5_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_4.Click
        Clic(New Coordonnees(5, 4))
    End Sub
    Sub Case5_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_5.Click
        Clic(New Coordonnees(5, 5))
    End Sub
    Sub Case5_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_6.Click
        Clic(New Coordonnees(5, 6))
    End Sub
    Sub Case5_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_7.Click
        Clic(New Coordonnees(5, 7))
    End Sub
    Sub Case5_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_8.Click
        Clic(New Coordonnees(5, 8))
    End Sub
    Sub Case5_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_9.Click
        Clic(New Coordonnees(5, 9))
    End Sub
    Sub Case5_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case5_10.Click
        Clic(New Coordonnees(5, 10))
    End Sub
    Sub Case6_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_0.Click
        Clic(New Coordonnees(6, 0))
    End Sub
    Sub Case6_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_1.Click
        Clic(New Coordonnees(6, 1))
    End Sub
    Sub Case6_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_2.Click
        Clic(New Coordonnees(6, 2))
    End Sub
    Sub Case6_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_3.Click
        Clic(New Coordonnees(6, 3))
    End Sub
    Sub Case6_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_4.Click
        Clic(New Coordonnees(6, 4))
    End Sub
    Sub Case6_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_5.Click
        Clic(New Coordonnees(6, 5))
    End Sub
    Sub Case6_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_6.Click
        Clic(New Coordonnees(6, 6))
    End Sub
    Sub Case6_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_7.Click
        Clic(New Coordonnees(6, 7))
    End Sub
    Sub Case6_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_8.Click
        Clic(New Coordonnees(6, 8))
    End Sub
    Sub Case6_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_9.Click
        Clic(New Coordonnees(6, 9))
    End Sub
    Sub Case6_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case6_10.Click
        Clic(New Coordonnees(6, 10))
    End Sub
    Sub Case7_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_0.Click
        Clic(New Coordonnees(7, 0))
    End Sub
    Sub Case7_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_1.Click
        Clic(New Coordonnees(7, 1))
    End Sub
    Sub Case7_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_2.Click
        Clic(New Coordonnees(7, 2))
    End Sub
    Sub Case7_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_3.Click
        Clic(New Coordonnees(7, 3))
    End Sub
    Sub Case7_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_4.Click
        Clic(New Coordonnees(7, 4))
    End Sub
    Sub Case7_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_5.Click
        Clic(New Coordonnees(7, 5))
    End Sub
    Sub Case7_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_6.Click
        Clic(New Coordonnees(7, 6))
    End Sub
    Sub Case7_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_7.Click
        Clic(New Coordonnees(7, 7))
    End Sub
    Sub Case7_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_8.Click
        Clic(New Coordonnees(7, 8))
    End Sub
    Sub Case7_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_9.Click
        Clic(New Coordonnees(7, 9))
    End Sub
    Sub Case7_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Case7_10.Click
        Clic(New Coordonnees(7, 10))
    End Sub

PETITE INFORMATION : Tous ces Handles se déclenche lors d'un clique sur différente PictureBox

Voilà, donc je serais très reconnaissant si vous pouviez me donner une méthode pour raccourcir ce long code

Merci, et bon weekend !

**Pol63** · 09/06/2012, 10h01

le truc à savoir c'est qu'on ne pose pas autant de picturebox à la main mais plutot avec un truc dans le genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
private sub create pctbox
  for y as integer = 0 to 5
    for x as integer = 0 to 5
       dim p as new picturebox
       uncontainer.controls.add(p)
       addhandler p.click, addressof pct_click
    next
  next
end sub
 
private sub pct_click(sender as object, e as system.Eventargs)
  ' code qui gère le click, tous les picturebox.click arriveront ici, sender contient celui qui a déclenché l'event
end sub

Invité · 09/06/2012, 12h58

OK, merci, je vais de ce pas me renseigné et appliquer le nouveau code

Racourcir un code

VB.NET

Vue hybride

Discussions similaires

Partager

Partager