~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction : ToucheActive Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long ' Enumération des touches que l'on peut être amené à tester ' (cette liste n'est pas exhaustive) Public Enum eTouche VK_NUMLOCK = &H90 VK_CAPITAL = &H14 End Enum Public Function ToucheActive(lgTouche As eTouche) As Boolean Dim KeyboardBuffer(256) As Byte Dim lgRep As Long ' Récupération de l'état de l'ensemble du clavier lgRep = GetKeyboardState(KeyboardBuffer(0)) If KeyboardBuffer(lgTouche) Then ' La touche sélectionnée est activée ToucheActive = True Else ' La touche sélectionnée est inactive ToucheActive = False End If End Function |