Discussion :

[SoGood]

Code :

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

1
2
3
4
5
6
 
Private Sub MultiUC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UCCheckBox1.CheckedChanged, UCCheckBox2.CheckedChanged, UCCheckBox3.CheckedChanged, UCCheckBox4.CheckedChanged
 
...
 
End Sub

Dans ce code, j'ai regroupé une serie de controle pour un meme evenement.
Mais comment faut-il faire pour connaitre le nom du controle qui a declanché l'evenement ?

Merci

[Aspic]

Code :

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

1
2
3
4
5
6
 
Private Sub MultiUC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UCCheckBox1.CheckedChanged, UCCheckBox2.CheckedChanged, UCCheckBox3.CheckedChanged, UCCheckBox4.CheckedChanged
 
...
 
End Sub

Dans ce code, j'ai regroupé une serie de controle pour un meme evenement.
Mais comment faut-il faire pour connaitre le nom du controle qui a declanché l'evenement ?

Merci

Comme ca :

Code :

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

1
2
3
4
Private Sub MultiUC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UCCheckBox1.CheckedChanged, UCCheckBox2.CheckedChanged, UCCheckBox3.CheckedChanged, UCCheckBox4.CheckedChanged
   Dim CheckCurrent as CheckBox = Ctype(sender, CheckBox)
   Msgbox(CheckCurrent.Name)
End Sub

[SoGood]

C'est parfait.
Je te remercie