Un seul appel de fonction avec plusieurs évènements

Version imprimable

Bonjour,

J'ai une interface avec beaucoup de bouton.
j'ai, pour le moment, 3 évènements par boutons.
Mais je vous avoue que d'avoir 3 Sub par bouton sa fait beaucoup, et je voudrais savoir s'il y a pas possibilité de simplifié en 1 seul Sub.

Voici mes Sub :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
'SUB 1
    Private Sub Activ_Mvt_Manu(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
                            Handles BtManuMorsPlus.MouseDown
 
        Dim BoutonAppuye As Button = CType(sender, Button)
 
        EtatBitMvt(BoutonAppuye, True)
 
    End Sub
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'SUB 2
    Private Sub Desactiv_Mvt_Manu_1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
                            Handles BtManuMorsPlus.MouseUp
 
        Dim BoutonRelache As Button = CType(sender, Button)
 
        EtatBitMvt(BoutonRelache, False)
 
    End Sub
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'SUB 3
    Private Sub Desactiv_Mvt_Manu_2(ByVal sender As Object, ByVal e As System.Windows.Forms.InvalidateEventArgs) _
                            Handles BtManuMorsPlus.Invalidated
 
        Dim BoutonRelache As Button = CType(sender, Button)
 
        EtatBitMvt(BoutonRelache, False)
 
    End Sub

10/02/2011, 10h07
Pol63

quand on a un evènement pour un bouton, en général on ne s'amuse pas à faire un ctype de sender, on utilise directement le bouton

il est possible de faire handles instance1.event, instance2.event, instance1.autreevent etc...
à partir de là caster sender pour savoir qui a déclenché l'event est utile
quand les types de e sont différent, on déclare e as system.eventargs et on le cast aussi sur le type voulu

là ou faut peut etre chercher coment faire c'est que tu gère le mousedown et mouseup avec un traitement différent
pour connaitre la valeur de ton booléen je pense qu'il faudrait juste vérifier l'état du bouton, qui se trouve peut etre dans e

nb : pour un cast DirectCast est plus rapide que CType
10/02/2011, 10h43
Fr33dom

Utiliser directement le bouton, d'accord, mais comment ?
le "sender" est de type object, et j'ai besoin des propriétés d'un bouton.
10/02/2011, 11h35
Danyel

Une petite recherche sur le forum et tu trouveras ton bonheur.
Le sujet est revenu des dixaines de fois.
10/02/2011, 11h44
Pol63

Citation:

Envoyé par Fr33dom

Utiliser directement le bouton, d'accord, mais comment ?
le "sender" est de type object, et j'ai besoin des propriétés d'un bouton.

lol ??

tu as le code !

Code:

Dim BoutonRelache As Button = DirectCast(sender, Button)

boutonreclaché est sender et as Button !

et si l'event n'est lié qu'à un controle genre avec handles BtManuMorsPlus.MouseDown, tu peux faire utiliser BtManuMorsPlus, c'est lui sender
10/02/2011, 12h59
Fr33dom

En effet j'ai plusieurs bouton, c'est pour cela que j'utilise CType(sender, Button).

et je n'arrive pas à trouver sur le forum la ou le sujet est déjà traité :calim2: