narfight
Messages postés129Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention 4 mars 2010
-
19 nov. 2008 à 11:56
narfight
Messages postés129Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention 4 mars 2010
-
19 nov. 2008 à 14:59
Bonjour à tous,
Il semblerait que nativement en faisant des "AddHandler" sur un même évent, seul la dernière déclaration est prise en compte !!!
Je pensais pouvoir intercepter l'évent de plusieurs endroit en même temps afin que les différents module de mon programme puisse réagir chaqu'un de leurs cotés.
Pouvez-vous me dire comment ajouter une série de Handler en cas d'évent ?
cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 201822 19 nov. 2008 à 12:31
Bonjour,
Aucun problème avec le mot clé AddHandler. Voir l'exemple ci-dessous.
Soit un formulaire Form1 et 4 boutons (Button1,Button2,etc...):
8<----------------------------------------------------------
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
AddHandler Button1.Click, AddressOf ButtonCommand_Click
AddHandler Button2.Click, AddressOf ButtonCommand_Click
AddHandler Button3.Click, AddressOf ButtonCommand_Click
AddHandler Button4.Click, AddressOf ButtonCommand_Click
EndSub
PrivateSub ButtonCommand_Click(ByVal sender AsObject, ByVal e As EventArgs)
Dim btn As Button = CType(sender, Button)
SelectCase btn.Name
Case Button1.Name
MessageBox.Show("Button1...")
Case Button2.Name
MessageBox.Show("Button2...")
Case Button3.Name
MessageBox.Show("Button3...")
Case Button4.Name
MessageBox.Show("Button4...")
EndSelect