IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Racourcir un code


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut Racourcir un code
    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 !

  2. #2
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 197
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 197
    Par défaut
    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
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

  3. #3
    Invité
    Invité(e)
    Par défaut
    OK, merci, je vais de ce pas me renseigné et appliquer le nouveau code

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Racourcir un code
    Par Invité dans le forum VB.NET
    Réponses: 9
    Dernier message: 01/06/2012, 19h20
  2. De la rapidité du code
    Par jfloviou dans le forum Contribuez
    Réponses: 233
    Dernier message: 29/05/2009, 02h17
  3. [Dictionary] Racourcir le code
    Par anthyme dans le forum C#
    Réponses: 7
    Dernier message: 13/03/2007, 21h05
  4. Explorateur de code C
    Par Zero dans le forum C
    Réponses: 14
    Dernier message: 06/06/2002, 09h41
  5. OmniORB : code sous Windows et Linux
    Par debug dans le forum CORBA
    Réponses: 2
    Dernier message: 30/04/2002, 17h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo