Savoir si CAPSLOCK actif

Eric avait écrit le 02/04/2007 :

Bonjour à tous

Je ne trouve pas comment savoir si la touche CAPSLOCK est active ou pas.
Si quelqu'un a la solution ...

Merci
Eric
(enlever le nospam pour me répondre)

Et la question subsidiaire : comment désactiver puis remettre le
VERRMAJ ?

Hi Eric
Compatibilité

* Windows 95 : supporté
* Windows 98 : supporté
* Windows NT : réclame Windows NT 3.1 ou plus
* Windows 2000 : supporté.
* Windows CE : non supporté

// Testons le clavier pour connaître les touches activées
// Problème des variables tableau en W-Langage dont l'indice commence
// à 1 et non 0, donc décalage de +1 pour être sur les bonnes touches
VK_NUMLOCK est un entier long = 0x90 + 1
VK_SCROLL est un entier long = 0x91 + 1
VK_CAPITAL est un entier long = 0x14 + 1
// Pour d'autres touches se reporter à l'aide sur les constantes API
Clavier est un tableau de 256 caractères

AppelDLL32("user32", "GetKeyboardState", &Clavier[1])

// Ce code vous est offert par Beaussier en ligne
SI Asc(Clavier[VK_CAPITAL]) ALORS Info("Majuscule bloquée")
SI Asc(Clavier[VK_NUMLOCK]) ALORS Info("Pavé numérique bloqué")
SI Asc(Clavier[VK_SCROLL]) ALORS Info("Arrêt défilement activé")
// etc.


Regards from Brazil

Ricardo a émis l'idée suivante :

Hi Eric
Compatibilité

* Windows 95 : supporté
* Windows 98 : supporté
* Windows NT : réclame Windows NT 3.1 ou plus
* Windows 2000 : supporté.
* Windows CE : non supporté

// Testons le clavier pour connaître les touches activées
// Problème des variables tableau en W-Langage dont l'indice commence
// à 1 et non 0, donc décalage de +1 pour être sur les bonnes touches
VK_NUMLOCK est un entier long = 0x90 + 1
VK_SCROLL est un entier long = 0x91 + 1
VK_CAPITAL est un entier long = 0x14 + 1
// Pour d'autres touches se reporter à l'aide sur les constantes API
Clavier est un tableau de 256 caractères

AppelDLL32("user32", "GetKeyboardState", &Clavier[1])

// Ce code vous est offert par Beaussier en ligne
SI Asc(Clavier[VK_CAPITAL]) ALORS Info("Majuscule bloquée")
SI Asc(Clavier[VK_NUMLOCK]) ALORS Info("Pavé numérique bloqué")
SI Asc(Clavier[VK_SCROLL]) ALORS Info("Arrêt défilement activé")
// etc.


Regards from Brazil

Hi Ricardo,

Thank you for your reply.

Regards from Paris.
Eric

Sans ses moufles, Ricardo a écrit :

// Testons le clavier pour connaître les touches activées
// Problème des variables tableau en W-Langage dont l'indice commence
// à 1 et non 0, donc décalage de +1 pour être sur les bonnes touches

Ouais, c'est pas mal de citer ses sources quand on pompe :
http://centrewd.free.fr/?page=ficheapi&t=f&n=GetKeyboardState

Gégé a écrit :

Sans ses moufles, Ricardo a écrit :

// Testons le clavier pour connaître les touches activées
// Problème des variables tableau en W-Langage dont l'indice commence
// à 1 et non 0, donc décalage de +1 pour être sur les bonnes touches

Ouais, c'est pas mal de citer ses sources quand on pompe :
http://centrewd.free.fr/?page=ficheapi&t=f&n=GetKeyboardState

Il a laissé tout de même le nom de l'auteur.

--
suivre ce lien pour répondre:
http://cerbermail.com/?2KrV3YZXnn
Daniel
;-)

Gégé a utilisé son clavier pour écrire :

Sans ses moufles, Ricardo a écrit :

// Testons le clavier pour connaître les touches activées
// Problème des variables tableau en W-Langage dont l'indice commence
// à 1 et non 0, donc décalage de +1 pour être sur les bonnes touches

Ouais, c'est pas mal de citer ses sources quand on pompe :
http://centrewd.free.fr/?page=ficheapi&t=f&n=GetKeyboardState

L'important c'est de répondre et d'aider les autres non ?

--
Eric Roumégou
Webmaster des wtablettes
http://cerbermail.com/?qE7t4Qvilo
(cliquez sur le lien ci-dessus pour me contacter en privé)

Roumegou Eric a utilisé son clavier pour écrire :

L'important c'est de répondre et d'aider les autres non ?

Oui, si c'est en respectant les auteurs.
Ne pas le faire, c'est décourager les auteurs de mettre à dispo leurs
sources (les anciens se souviendront de l'épisode fameux du
"Guide"...).

A+

--
Romain PETIT
http://cerbermail.com/?O16kfXOFcq
(cliquez sur le lien ci-dessus pour me contacter en privé)

Sorry
I didn't have the intention of disrespecting any author, I had this
l"tip" in my palmtop, unhappily I didn't write the the website or
author because many sites of clues Windev appear and they disappear.

My intention was helping, I didn't say that the clue was mine.

Regards
Ricardo

I have many clues in my palmtop, I believe didn't offend any author,
if I made it, excuse me