Savoir si CAPSLOCK actif

Le
Eric
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)
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric
Le #14650511
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 ?
Ricardo
Le #14650461
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
Eric
Le #14650451
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
Gégé
Le #14650381
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
Daniel
Le #14650361
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
;-)
Roumegou Eric
Le #14650341
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é)
Romain PETIT
Le #14650291
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é)
Ricardo
Le #14650161
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
Ricardo
Le #14650151
I have many clues in my palmtop, I believe didn't offend any author,
if I made it, excuse me
Publicité
Poster une réponse
Anonyme