Sender.tag genere une erreur

Signaler
Messages postés
37
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
6 avril 2016
-
Messages postés
37
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
6 avril 2016
-
sender.tag avec l'option Strict Off fonctionne sans probleme mais genere une
erreur de type "Option Strict On rejette toute liaison tardive" avec l'option
Strict On...

Le sender recupere la valeur du Tag (0,1,2) de 3 Radiobutton(R0, R1 et R3) dont le
Click respectif pointe vers une même procedure Choix_Click:

Private Sub Choix_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles R0.Click, R1.Click, R3.Click
Flag=sender.tag
End Sub

Solution pour eviter cette erreur avec l'option Strict On... Merci

Paounet

2 réponses

Messages postés
221
Date d'inscription
mercredi 9 avril 2003
Statut
Membre
Dernière intervention
13 décembre 2009
1
Bonjour aussi,

sender est de type Objet, tu doit donc le convertir en button pour qu'i soit reconnu comme tel, avec sa propriété Tag entre autre.

Si Flag est un String (sinon penser à convertir dans le type désiré), voilà un exemple :

- Pour un usage ponctuel :
Flag = DirectCast(sender, System.Windows.Forms.Button).Tag.ToString()


- Pour utiliser sur plusieurs opérations :
Dim CurrentButton As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button)
Flag = CurrentButton.Tag.ToString()
'-- etc...


A+
Messages postés
37
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
6 avril 2016
1
Merci


Paounet