Plusieurs controle sur le même événement

Private Sub BtClavier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt0.Click, Bt1.Click, Bt2.Click, Bt3.Click, Bt4.Click, Bt5.Click, Bt6.Click, Bt7.Click, Bt8.Click, Bt9.Click, BtC.Click, BtPoint.Click

Sender : bouton qui a déclenché l'événement

Select Case sender

Case Bt0, Bt1, Bt2, Bt3, Bt4, Bt5, Bt6, Bt7, Bt8, Bt9

   Case BtPoint

   Case BtC

End Select

Avec sender.name ou sender.text le code suivant fonctionne mais uniquement si Option Strict Off.

Select Case sender.Text

   Case Bt0.Text, Bt1.Text, Bt2.Text, Bt3.Text, Bt4.Text, Bt5.Text, Bt6.Text, Bt7.Text, Bt8.Text, Bt9.Text

   Case BtPoint.Text

   Case BtC.Text

End Select

Si j'utilise sender.ToString je peux utiliser l'Option Strict On, mais le texte renvoyé est super long. Si quelqu'un connait un code qui serais plus pratique que ToString tout en ayant l'Option Strict On ce serait sympa.

Essaie
select case Strings.Right(sender.ToString, Len(sender.ToString) - 36)

case Strings.Right(btpoint.ToString, Len(sender.ToString) - 36)

case Strings.Right(btc.ToString, Len(sender.ToString) - 36)

case else

end select

ca devrait marcher

Merci Scientophage mais finalement j'ai fait comme ceci.

Dim Bt As String

If sender Is Bt0 Then Bt = Bt0.Text

If sender Is Bt1 Then Bt = Bt1.Text

If sender Is Bt2 Then Bt = Bt2.Text

If sender Is Bt3 Then Bt = Bt3.Text

If sender Is Bt4 Then Bt = Bt4.Text

If sender Is Bt5 Then Bt = Bt5.Text

If sender Is Bt6 Then Bt = Bt6.Text

If sender Is Bt7 Then Bt = Bt7.Text

If sender Is Bt8 Then Bt = Bt8.Text

If sender Is Bt9 Then Bt = Bt9.Text

If sender Is BtPoint Then Bt = BtPoint.Text

If sender Is BtC Then Bt = BtC.Text

Select Case Bt

   Case Bt0.Text To Bt9.Text

   Case BtPoint.Text

   Case BtC.Text

End Select