Thank you very much, it taught me to use the sender. It gives me this:
Code:
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuppr9h.Click, btnSuppr10h.Click, btnSuppr11h.Click
If DirectCast(sender, Button) Is btnSuppr9h Then
btnrdv1.Text = "none rdv"
lblProblem1.Text = ""
Panel9h.BackColor = Color.ForestGreen
btnSuppr9h.Enabled = False
ElseIf DirectCast(sender, Button) Is btnSuppr10h Then
btnrdv2.Text = "none rdv"
lblProblem2.Text = ""
Panel10h.BackColor = Color.ForestGreen
btnSuppr10h.Enabled = False
ElseIf DirectCast(sender, Button) Is btnSuppr11h Then
btnrdv3.Text = "none rdv"
lblProblem3.Text = ""
Panel11h.BackColor = Color.ForestGreen
btnSuppr11h.Enabled = False
End If
There is not a means to further reduce the code?
Bookmarks