Discussion :

[Fr33dom]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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.

[Danyel]

Une petite recherche sur le forum et tu trouveras ton bonheur.
Le sujet est revenu des dixaines de fois.

[Pol63]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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

[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é