gérer événement clic, sur un groupe de label
Bonjour au forum,
Actuellement je gère l'événement label_click d'après mon code hyper lourd et intenable.
Comment faire pour éviter de se taper n lignes de code "répétitifs" faisant la même chose mais ouvrant un fichier différent en fonction du caption sur le label cliqué ?
Je m'explique, mon mini projet est de faire ceci:
1/ détecte le caption du label sur lequel j'ai cliqué (il ne doit pas être vide pour faire 2/ et il le label.name commence à 101 et se finit à 407 et ne tiens pas compte des autres labels existant)
2/ lit le contenu du fichier relatif au caption mémorisé/cliqué
3/ fait de l'affichage dans une listbox
Dans mon userform, je fais bestialement ceci :
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
|
Private Sub label100_click()
If Label100.Caption <> "" Then
Call LectureFichier(Label100.Caption)
End If
End Sub
Private Sub label101_click()
If Label101.Caption <> "" Then
Call LectureFichier(Label101.Caption)
End If
End Sub
Private Sub label102_click()
If Label102.Caption <> "" Then
Call LectureFichier(Label102.Caption)
End If
End Sub
Private Sub label103_click()
If Label103.Caption <> "" Then
Call LectureFichier(Label103.Caption)
End If
End Sub
Private Sub label104_click()
If Label104.Caption <> "" Then
Call LectureFichier(Label104.Caption)
End If
End Sub
.
.
. |
merci pour votre aide car c'est redondant comme méthode
