sender.tag genere une erreur

Question

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

cs_Ayr · Answer

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+

cs_Paounet · Answer

Merci


Paounet

Sender.tag genere une erreur

2 réponses

Votre réponse

Discussions similaires