Touche à l'ouverture d'une fenetre

anamorph Messages postés 8 Date d'inscription mardi 11 juin 2002 Statut Membre Dernière intervention 19 juillet 2006 - 20 août 2002 à 16:29
cs_bretagne56 Messages postés 1 Date d'inscription samedi 17 juin 2006 Statut Membre Dernière intervention 17 juin 2006 - 17 juin 2006 à 18:34
Comment détecter si la touche Shift ou autres est pressée ou pas à l'ouverture d'un form

Merci par avance 8-)

2 réponses

cs_thitoune Messages postés 124 Date d'inscription mardi 19 février 2002 Statut Membre Dernière intervention 7 mars 2004 2
20 août 2002 à 16:59
A écrire dans un module !

Declare Function GetKeyState Lib "User32" (ByVal touche As Long) As Long
Public Sub essai()
testKey = GetKeyState(&H90)
MsgBox "Verrouillage numérique " & testKey
testKey = GetKeyState(&H14)
MsgBox "Verrouillage majuscule " & testKey
End Sub
0
cs_bretagne56 Messages postés 1 Date d'inscription samedi 17 juin 2006 Statut Membre Dernière intervention 17 juin 2006
17 juin 2006 à 18:34
Je voudrais empêcher l'écriture en majuscules, en bloquant l'execution d'un module!
0
Rejoignez-nous