Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
Salut! :O)
pour ajouter un peu d'information complémentaire, tu peux savoit si les 2 boutons sont enfoncé en même temps, il suffit de vérifier les 2 bits à la fois soit :
'*** If (Button And (vbLeftButton Or vbRightButton)) = (vbLeftButton Or vbRightButton) Then ... '***
On appelle cela un Bitmask. Si tu veux en connaître plus sur le fonctionnement d'un bitmask, tu peux lire mes deux messages dans ce thread : http://groups.google.com/groups?threadm=uwtNY921CHA.1768%40TK2MSFTNGP12
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/ http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/ "François Picalausa" wrote in message news:uU5a3% : Bonjour/soir, : : Pour le déplacement du curseur sur une form, par exemple, il est possible de : faire ceci: : Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, : Y As Single) : Dim LeftButtonState As Boolean : Dim RightButtonState As Boolean : Dim MiddleButtonState As Boolean : : LeftButtonState = ((Button And vbLeftButton) = vbLeftButton) : RightButtonState = ((Button And vbRightButton) = vbRightButton) : MiddleButtonState = ((Button And vbMiddleButton) = vbMiddleButton) : : Debug.Print "Bouton gauche : " & LeftButtonState, _ : "Bouton droit : " & RightButtonState, _ : "Bouton milieu : " & MiddleButtonState : End Sub : : Pour connaitre à tout moment (même dans le MouseDown qui ne renvoie que : l'état du boutton pressé) l'état des boutons: : Private Const VK_MBUTTON = &H4 : Private Const VK_LBUTTON = &H1 : Private Const VK_RBUTTON = &H2 : Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) : As Integer : : Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, : Y As Single) : Dim LeftButtonState As Boolean : Dim RightButtonState As Boolean : Dim MiddleButtonState As Boolean : : LeftButtonState = GetAsyncKeyState(VK_LBUTTON) : RightButtonState = GetAsyncKeyState(VK_MBUTTON) : MiddleButtonState = GetAsyncKeyState(VK_RBUTTON) : : Debug.Print "Bouton gauche : " & LeftButtonState, _ : "Bouton droit : " & RightButtonState, _ : "Bouton milieu : " & MiddleButtonState : End Sub : : -- : François Picalausa (MVP VB) : FAQ VB : http://faq.vb.free.fr : MSDN : http://msdn.microsoft.com : : : Denis Taglia wrote: : > Bonjour, : > Comment peut-on savoir si les 2 boutons de la souris sont pressés en : > même temps? : > Il a pas trouvé. : > Merci d'avance pour vos réponses : > Denis : :
Salut! :O)
pour ajouter un peu d'information complémentaire, tu peux savoit si les 2
boutons sont enfoncé en même temps, il suffit de vérifier les 2 bits à la fois
soit :
'***
If (Button And (vbLeftButton Or vbRightButton)) = (vbLeftButton Or
vbRightButton) Then ...
'***
On appelle cela un Bitmask. Si tu veux en connaître plus sur le fonctionnement
d'un bitmask, tu peux lire mes deux messages dans ce thread :
http://groups.google.com/groups?threadm=uwtNY921CHA.1768%40TK2MSFTNGP12
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"François Picalausa" <fpicalausa@chez.com> wrote in message
news:uU5a3%23eRDHA.940@TK2MSFTNGP11.phx.gbl...
: Bonjour/soir,
:
: Pour le déplacement du curseur sur une form, par exemple, il est possible de
: faire ceci:
: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
: Y As Single)
: Dim LeftButtonState As Boolean
: Dim RightButtonState As Boolean
: Dim MiddleButtonState As Boolean
:
: LeftButtonState = ((Button And vbLeftButton) = vbLeftButton)
: RightButtonState = ((Button And vbRightButton) = vbRightButton)
: MiddleButtonState = ((Button And vbMiddleButton) = vbMiddleButton)
:
: Debug.Print "Bouton gauche : " & LeftButtonState, _
: "Bouton droit : " & RightButtonState, _
: "Bouton milieu : " & MiddleButtonState
: End Sub
:
: Pour connaitre à tout moment (même dans le MouseDown qui ne renvoie que
: l'état du boutton pressé) l'état des boutons:
: Private Const VK_MBUTTON = &H4
: Private Const VK_LBUTTON = &H1
: Private Const VK_RBUTTON = &H2
: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long)
: As Integer
:
: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
: Y As Single)
: Dim LeftButtonState As Boolean
: Dim RightButtonState As Boolean
: Dim MiddleButtonState As Boolean
:
: LeftButtonState = GetAsyncKeyState(VK_LBUTTON)
: RightButtonState = GetAsyncKeyState(VK_MBUTTON)
: MiddleButtonState = GetAsyncKeyState(VK_RBUTTON)
:
: Debug.Print "Bouton gauche : " & LeftButtonState, _
: "Bouton droit : " & RightButtonState, _
: "Bouton milieu : " & MiddleButtonState
: End Sub
:
: --
: François Picalausa (MVP VB)
: FAQ VB : http://faq.vb.free.fr
: MSDN : http://msdn.microsoft.com
:
:
: Denis Taglia wrote:
: > Bonjour,
: > Comment peut-on savoir si les 2 boutons de la souris sont pressés en
: > même temps?
: > Il a pas trouvé.
: > Merci d'avance pour vos réponses
: > Denis
:
:
pour ajouter un peu d'information complémentaire, tu peux savoit si les 2 boutons sont enfoncé en même temps, il suffit de vérifier les 2 bits à la fois soit :
'*** If (Button And (vbLeftButton Or vbRightButton)) = (vbLeftButton Or vbRightButton) Then ... '***
On appelle cela un Bitmask. Si tu veux en connaître plus sur le fonctionnement d'un bitmask, tu peux lire mes deux messages dans ce thread : http://groups.google.com/groups?threadm=uwtNY921CHA.1768%40TK2MSFTNGP12
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/ http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/ "François Picalausa" wrote in message news:uU5a3% : Bonjour/soir, : : Pour le déplacement du curseur sur une form, par exemple, il est possible de : faire ceci: : Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, : Y As Single) : Dim LeftButtonState As Boolean : Dim RightButtonState As Boolean : Dim MiddleButtonState As Boolean : : LeftButtonState = ((Button And vbLeftButton) = vbLeftButton) : RightButtonState = ((Button And vbRightButton) = vbRightButton) : MiddleButtonState = ((Button And vbMiddleButton) = vbMiddleButton) : : Debug.Print "Bouton gauche : " & LeftButtonState, _ : "Bouton droit : " & RightButtonState, _ : "Bouton milieu : " & MiddleButtonState : End Sub : : Pour connaitre à tout moment (même dans le MouseDown qui ne renvoie que : l'état du boutton pressé) l'état des boutons: : Private Const VK_MBUTTON = &H4 : Private Const VK_LBUTTON = &H1 : Private Const VK_RBUTTON = &H2 : Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) : As Integer : : Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, : Y As Single) : Dim LeftButtonState As Boolean : Dim RightButtonState As Boolean : Dim MiddleButtonState As Boolean : : LeftButtonState = GetAsyncKeyState(VK_LBUTTON) : RightButtonState = GetAsyncKeyState(VK_MBUTTON) : MiddleButtonState = GetAsyncKeyState(VK_RBUTTON) : : Debug.Print "Bouton gauche : " & LeftButtonState, _ : "Bouton droit : " & RightButtonState, _ : "Bouton milieu : " & MiddleButtonState : End Sub : : -- : François Picalausa (MVP VB) : FAQ VB : http://faq.vb.free.fr : MSDN : http://msdn.microsoft.com : : : Denis Taglia wrote: : > Bonjour, : > Comment peut-on savoir si les 2 boutons de la souris sont pressés en : > même temps? : > Il a pas trouvé. : > Merci d'avance pour vos réponses : > Denis : :
