cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 25 nov. 2006 à 01:45
Salut
Il te suffit d'interroger l'état des touches au moment opportun.
Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Private Const VK_SHIFT As Long = &H10
Private Const VK_CONTROL As Long = &H11
Function ToucheControlEnfoncée() As Boolean
If GetKeyState(VK_CONTROL) = -127 Or _
GetKeyState(VK_CONTROL) = -128 Then
ToucheControlEnfoncée = True
Else
ToucheControlEnfoncée = False
End If
End Function
Function ToucheShiftEnfoncée() As Boolean
If GetKeyState(VK_SHIFT) = -127 Or _
GetKeyState(VK_SHIFT) = -128 Then
ToucheShiftEnfoncée = True
Else
ToucheShiftEnfoncée = False
End If
End Function
Je viens de m'apercevoir que tu parlais en VB.Net.
Cette syntaxe sera peut-être à revoir (c'est du VB6).
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005 Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)