Discussion :

[Barghis]

Je fais migrer un programme VB6 en VBnet. Je rencontre le pb suivant :

J'ai un groupe de boutons pour lequel j'interceptais l'événement Click par une procédure qui me donnait le numéro d'index du bouton.

Pour chaque bouton (indexé de 0 à 31) je modifie une variable (indexé de 0 à 31)

Comment faire en VBNet pour récupérer l'événement Click de mes boutons sans tous les traiter individuellement tel que

Code :

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

1
2
3
 Private Sub cmdCdeManu_16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCdeManu_16.Click
 
  End Sub

Merci d'avance pour vos propositions

[Poulain]

Je sais que quand tu crée un bouton, tu peux mettre un evennement avec adress of, par exemple, pour l'evenement click, mais il faut que ce soit un bouton créé par le code.
De là, en faisant sender.name ou e.name dans l'evennement click, tu peux récupérer le nom du bouton.

[Barghis]

Effectivement j'ai trouvé un exemple de code illustrant cette possibilité.

Mais là mais boutons sont créés. IL y a t'il un contrôle d'évenements un peu identique à "Controls" qui remonterait le nom du contrôle ayant généré un type particulier d'événement (ici le Click) ?

[robri]

bonjour,

pour ne pas avoir à les traiter individuellement, tu peux brancher l'évènement "click" de chaque bouton sur la même fonction en modifiant le Handles:

Code :

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

1
2
3
4
Private Sub cmdCdeManu_16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles cmdCdeManu_1.Click, cmdCdeManu_2.Click, ... cmdCdeManu_N.Click
 
End Sub

ensuite, il te suffit de typer l'objet sender en Button pour avoir accès aux propriétés du bouton qui a lancé l'évènement :

Code :

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

1
2
3
4
5
6
7
Private Sub cmdCdeManu_16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles cmdCdeManu_1.Click, cmdCdeManu_2.Click, ... cmdCdeManu_N.Click
 
dim lButton as Button
lButton = CType(sender, Button)
 
End Sub

[Barghis]

Merci Robri !
Ta proposition réponds pour moitié à ma question.

En effet elle me permet de récupérer l'index dans le nom du bouton et de le transférer à ma procédure ToggleIO.

Par contre il me faut déclarer les événements Click de tous mes boutons ...

Au résultat j'arrive à :

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
 
  Private Sub cmdCdeManu_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles _
  cmdCdeManu_0.Click, cmdCdeManu_1.Click, cmdCdeManu_2.Click, cmdCdeManu_3.Click, cmdCdeManu_4.Click, _
  cmdCdeManu_5.Click, cmdCdeManu_6.Click, cmdCdeManu_7.Click, cmdCdeManu_8.Click, cmdCdeManu_9.Click, _
  cmdCdeManu_10.Click, cmdCdeManu_11.Click, cmdCdeManu_12.Click, cmdCdeManu_13.Click, cmdCdeManu_14.Click, _
  cmdCdeManu_15.Click, cmdCdeManu_16.Click, cmdCdeManu_17.Click, cmdCdeManu_18.Click, cmdCdeManu_19.Click, _
  cmdCdeManu_20.Click, cmdCdeManu_21.Click, cmdCdeManu_22.Click, cmdCdeManu_23.Click, cmdCdeManu_24.Click, _
  cmdCdeManu_25.Click, cmdCdeManu_26.Click, cmdCdeManu_27.Click, cmdCdeManu_28.Click, cmdCdeManu_29.Click, _
  cmdCdeManu_30.Click, cmdCdeManu_31.Click, cmdCdeManu_32.Click, cmdCdeManu_33.Click, cmdCdeManu_34.Click, _
  cmdCdeManu_35.Click, cmdCdeManu_36.Click, cmdCdeManu_37.Click, cmdCdeManu_38.Click, cmdCdeManu_39.Click, _
  cmdCdeManu_40.Click, cmdCdeManu_41.Click, cmdCdeManu_42.Click, cmdCdeManu_43.Click, cmdCdeManu_44.Click, _
  cmdCdeManu_45.Click, cmdCdeManu_46.Click, cmdCdeManu_47.Click
 
    Dim BoutonCdeManu As Button
    BoutonCdeManu = eventSender
 
    Dim Index As Integer = BoutonCdeManu.Name.Substring(BoutonCdeManu.Name.LastIndexOf("_") + 1)
    Label1.Text = CStr(Index)  'label de test pour visualiser la valeur de l'index
 
    frmMain.ToggleIO(960 + Index)
 
  End Sub

Il ne m'a pas semblé nécessaire de typer eventSender puisqu'elle est déjà de type "button".


Je ne referme pas le Post maintenant peut être il y a t'il une solution pour ne pas avoir à déclarer tous les événements.

[olsimare]

Bonjour.

A la rigueur, en overridant OnControlAdded ça peut simplifier le 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
 
Public Class Form4
 
    Protected Overrides Sub OnControlAdded( _
    ByVal e As ControlEventArgs)
        MyBase.OnControlAdded(e)
        If Me.DesignMode Then Exit Sub
        If e.Control.Name.IndexOf("cmdCdeManu_") = 0 Then
            AddHandler e.Control.Click, AddressOf processButtonClick
        End If
    End Sub
 
    Private Sub processButtonClick(ByVal sender As Object, ByVal e As EventArgs)
        MsgBox(CType(sender, Control).Name)
    End Sub
 
End Class

Par contre, le test sur le nom du control, c'est moyen quand même.

Je verrai bien un type perso hérité de button avec un propriété shared "index", par exemple.

Cdt.

[Barghis]

Merci de ta proposition Olsimare, mais je recherche un code simple à maintenir. Ben oui, je n'ai pas un gros niveau, je ne développe pas tous les jours en VB. Comme c'est une appli sur laquelle je ne reviendrais pas tous les jours, je ne veux pas être bloqué en essayant de me rappeler ce que j'avais essayé de faire.
Et pour moi la rédefinition du comportement d'une méthode, c'est trop

Je crois que vu mon niveau, la solution sera une création de mes boutons en Run
comme le proposais Poulain.

Encore merci à tous ceux qui m'ont aidé !!!