annesirine
Messages postés38Date d'inscriptionsamedi 16 octobre 2004StatutMembreDernière intervention19 février 2006
-
8 févr. 2005 à 15:13
annesirine
Messages postés38Date d'inscriptionsamedi 16 octobre 2004StatutMembreDernière intervention19 février 2006
-
8 févr. 2005 à 20:04
Bonjour a tous,
J'ai besoin dans mon programme de savoir l'etat des boutons souris, je voudrais savoir sur quels Windows ca tourne (car j'ai un doute) voici le code dans une form1 avec un timer1 :
---
Option Explicit
Private Type tmouse
btLeft As Integer
btRight As Integer
btMiddle As Integer
mouse_click As Boolean
End Type
If my_mouse.btLeft 0 And my_mouse.btRight 0 And my_mouse.btMiddle = 0 Then
my_mouse.mouse_click = False
Else
my_mouse.mouse_click = True
End If
Form1.Caption = my_mouse.mouse_click
End Sub
---
Et ceci dans un module1
---
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal VKey As Long) As Integer
---
J'ai vraiment besoin que ca marche sur Windows 98, Windows 2000 (testé c'est bon), mais sur XP, NT, et autres Windows ME, Microsoft Server je sais pas, HELP !.
annesirine
Messages postés38Date d'inscriptionsamedi 16 octobre 2004StatutMembreDernière intervention19 février 2006 8 févr. 2005 à 20:04
Je demandais, car pour ne pas devoiler ma 2 eme question, quelqu'un considerait que pour NT il faudrait plutot utiliser "GetKeyState", et je pensais que c'etait pour une question de compatibilité, or apparement non.
Si quelqu'un pouvait m'expliquer la difference et pourquoi il a dit ca ...
En tout cas grand merci a vous 2.