GetAsyncKeyStateRésolu

Question

salut a tous,

voila en fait ce n'est pas un probleme que je vais vous posez pcq j'ai la solution ! mais voila j'utilise l'api GetAsyncKeyState pour tester si la touche SHIFT est enfonc&#233;e !

Quand j'utilise ce code:
   
               lbl1.caption =GetAsyncKeyState(16)

le label = -32767

mais quand j'utilise ce code:
                  If GetAsyncKeyState(16) -32767 Then Shift True Else schift = False

ca ne fonctionne pas, je suis obliger d'utiliser celui ci
            If GetAsyncKeyState(16) -32768 Then Shift True Else schift = False

qui saurait me dire pourquoi ?

Gobillot · Accepted Answer

If GetAsyncKeyState(16) < 0 Then Shift = True Else schift = False

Daniel

cs_Jack · Answer

Salut
Utilise plut&#244;t GetKeyState :
Cette fonction te renverra True si le Shift est enfonc&#233; :


Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer

Function ToucheShiftEnfonc&#233;e() As Boolean
    If GetKeyState(VK_SHIFT) = -127 Or _
       GetKeyState(VK_SHIFT) = -128 Then
            ToucheShiftEnfonc&#233;e = True
    Else
            ToucheShiftEnfonc&#233;e = False
    End If
End Function

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_moi4975 · Answer

non ca ne marche pas j'ai d&#233;j&#224; essayer ! Merci quand meme !