Discussion :

[Danyel]

Salut All,

Qq pourrait il me signaler s'il est possible de savoir d'ou une action est produite et si oui comment.

Je m'explique :
On va dire qu'il y a un button avec un raccourci clavier & dans le text.
J'aimerai pouvoir savoir si l'action click du button provient du click de la souris ou du raccourcis clavier !

Merci pour votre aide.
Danyel.

[olsimare]

Bonjour.

Je suppose que tu es dans le click...

Donc ça doit être possible de positionner à true un booleen dans le mousedown pour dire que tu viens d'une entrée souris et de le remettre à false dans le click.

PS : j'ai pas essayé.

Cdt.

[Danyel]

Mouaip mais ca a plus l'air de bidouillage qu'autre chose (lol)
Je viens juste de voir que e du click signale d'ou provient l'action ... je suis sur le coup et vous tiens au courant pour cette piste.

Si vous avez d'autres solutions ...

[Danyel]

Alors qq infos
Dans le Button.Click on peut recuperer une information de la source en utilisant le e.tostring.

Alors on recupere :
- de la souris : Windows.System.Forms.MouseEventArgs
- du clavier : System.EventArgs

Maintenant faut voir si c'est fiable.

[olsimare]

Bonjour.

Mouaip mais ca a plus l'air de bidouillage qu'autre chose (lol)

Non, c'est juste de la bonne gestion d'évènement ... et c'est propre :

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
 
Public Class b
    Inherits Button
 
    Private blnMouseDown As Boolean
 
    Protected Overrides Sub OnMouseDown(ByVal mevent As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseDown(mevent)
        blnMouseDown = True
    End Sub
    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        MyBase.OnClick(e)
        If blnMouseDown Then
            MsgBox("mouse")
            blnMouseDown = False
        Else
            MsgBox("Raccourci")
        End If
    End Sub
 
End Class

Ca y est je vais être énervé pour la nuit !

Cdt.

[Danyel]

Ouaip c'est vrai que c'est plus joli mais en utilisant un control perso.

Avec ma methode (pourri ?) ca fonctionne directement du click.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click
 
        Select Case e.ToString
            Case "System.Windows.Forms.MouseEventArgs"
                'ici souris
            Case "System.EventArgs"
                'ici clavier
        End Select
 
End Sub

[olsimare]

Bonjour.

Dans ce cas, teste le type de e plutôt que le e.tostring, c'est plus propre.

En fait, personnellement, les 2 méthodes me vont !

Cdt.