Quelle compatibilité pour cet API ?

Question

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


Private my_mouse As tmouse


Private Sub Form_Load()


my_mouse.btLeft = 0
my_mouse.btLeft = 0
my_mouse.btLeft = 0
my_mouse.mouse_click = False


End Sub


Private Sub Timer1_Timer()


my_mouse.btLeft = GetAsyncKeyState(1)
my_mouse.btRight = GetAsyncKeyState(2)
my_mouse.btMiddle = GetAsyncKeyState(4)


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&#233; c'est bon), mais sur XP, NT, et autres Windows ME, Microsoft Server je sais pas, HELP !.

econs · Answer

D'apr&#232;s ProgotopAPIviewer, cette API est compatible avec :


Windows 3.1

Windows 95

Windows 98

Windows NT

Windows 2000

Windows XP



http://www.progotop.com pour t&#233;l&#233;charger progotopAPIviewer.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

zippro4012 · Answer

t'inqui&#232;te pas, cette API existe depuis la nuit des temps, et existera encore longtemps

annesirine · Answer

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&#233;, 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.

Quelle compatibilité pour cet API ?

3 réponses

Discussions similaires