SIMULER UN CLICK DROIT ?

Question

Bonjour !

J'ai reussi a faire boug&#233; ma sourie, et maintenant je veux effectuer un clique droit en dehors de la form.... Je voudrais juste le bout de code pour faire un 'click droit'

j'ai vu se code sur vbfrance mais sa manque de pr&#233;cision :

> Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
> 
> Const MOUSEEVENTF_LEFTDOWN = &H2
> Const MOUSEEVENTF_LEFTUP = &H4
> Const MOUSEEVENTF_MIDDLEDOWN = &H20
> Const MOUSEEVENTF_MIDDLEUP = &H40
> Const MOUSEEVENTF_MOVE = &H1
> Const MOUSEEVENTF_ABSOLUTE = &H8000
> Const MOUSEEVENTF_RIGHTDOWN = &H8
> Const MOUSEEVENTF_RIGHTUP = &H10
> 
> 'quelque part dans le code...
> mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
> 

Merci de prendre du  temps pr&#233;cieux a me r&#233;pondre..
by newbie

cc22c · Answer

d&#233;sol&#233;; j'ai oubli&#233; quelque chose :( je voudrais le code pour un click gauche sa serais sympa!

merci beaucoup

PCPT · Answer

salut,
tes d&#233;clarations sont correctes
(sans les > bien s&#251;r :-p)

voici comment comprendre le fonctionnement.
ici, quand je fais un click droit sur la forme, je d&#233;clanche l'&#233;v&#232;nement baiss&#233; relev&#233; du click gauche.
et dans l'&#233;v&#232;nement click gauche, je l'&#233;cris sur la form...

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then 'boutton droit enfonc&#233;
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
    End If
End Sub


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then 'bouton gauche relev&#233;
        Me.Print "mouse up gauche"
    End If
End Sub

voil&#224; ;)
&#231;&#224; devrait &#234;tre plus clair maintenant
PCPT

SIMULER UN CLICK DROIT ?

2 réponses

Discussions similaires