Évènement click sur quel contrôle
Résolu
Paraglider
Messages postés
35
Date d'inscription
mercredi 19 mars 2003
Statut
Membre
Dernière intervention
6 février 2014
-
3 févr. 2009 à 17:43
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 3 févr. 2009 à 18:01
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 3 févr. 2009 à 18:01
1 réponse
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
3 févr. 2009 à 18:01
3 févr. 2009 à 18:01
salut,
tu peux ajouter les noms des contrôles dans la ligne de l'évènement click de l'un d'entre eux, après le "handle NOM", séparés par des virgules
ensuite pour les différencier, tu repères le nom du contrôle depuis le sender en paramètre
<hr />
' RÉCUPÉRER LE NOM D'UN CONTRÔLE
' http://www.codyx.org/snippet_recuperer-nom-controle_769.aspx#2283
' Posté par [ 401740 PCPT ] le 24/01/2009
<hr />
Function GetControlName(ByRef sender As System.Object) As String
If (sender Is Nothing) OrElse (Not TypeOf sender Is Control) Then
Return String.Empty
Else
Dim oCtrl As New Control
oCtrl = DirectCast(sender, Control)
Dim sRet As String = oCtrl.Name
oCtrl = Nothing
Return sRet
End If
End Function
'----------------------------------------------------------------
'Remarques :
'à appeler depuis un Click Bouton par exemple, pour un unique
évènement relevé par plusieurs boutons donc plusieurs actions
++
<hr size ="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
tu peux ajouter les noms des contrôles dans la ligne de l'évènement click de l'un d'entre eux, après le "handle NOM", séparés par des virgules
ensuite pour les différencier, tu repères le nom du contrôle depuis le sender en paramètre
<hr />
' RÉCUPÉRER LE NOM D'UN CONTRÔLE
' http://www.codyx.org/snippet_recuperer-nom-controle_769.aspx#2283
' Posté par [ 401740 PCPT ] le 24/01/2009
<hr />
Function GetControlName(ByRef sender As System.Object) As String
If (sender Is Nothing) OrElse (Not TypeOf sender Is Control) Then
Return String.Empty
Else
Dim oCtrl As New Control
oCtrl = DirectCast(sender, Control)
Dim sRet As String = oCtrl.Name
oCtrl = Nothing
Return sRet
End If
End Function
'----------------------------------------------------------------
'Remarques :
'à appeler depuis un Click Bouton par exemple, pour un unique
évènement relevé par plusieurs boutons donc plusieurs actions
++
<hr size ="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
