Mettre en majuscules/minuscules en deux touches

Soyez le premier à donner votre avis sur cette source.

Vue 12 834 fois - Téléchargée 572 fois

Description

Ce petit code permet de changer la casse du texte selectionné dans vos applis, en pressant Shift + F1 (Majuscules) ou Ctrl + F1 (Minuscules)

lancez-le, il se place dans la SysTray, et attend que vous cliquiez dessus pour quitter...

codes interessant :
l'enregistrements de raccourcis
la recupération de la fenetre qui a le focus (GetFocus ne fonctionne que pour le Thread Courant...)

Conclusion :


Ne fonctionne pas en l'etat sous Word/Excel ou IE

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
9
Merci pour le hook, j'y pensais mais l'ennuis, c'est que je me demande comment récupérer le Thread de l'appli en cours.
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Car cet API marche très bien sur le form du programme VB, je peux tester les touches du clavier. Mais, si je vais dans le notepad, comment faire pour tester les touches du clavier à ce moment là? Dois-je utiliser l'API AttachThreadInput ?
A quoi sert les constantes EM_SETSEL et WM_SETTEXT?
L'API sendMessage sert-elle à écrire dans l'application qui a le focus?
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
je pense qu'un hook duy clavier serait ici plus adapté...

pour ce qui est du changement du raccourcis, tout se passe ici :

.Register vbKeyF1, MOD_SHIFT, 3112
.Register vbKeyF1, MOD_CONTROL, 3113
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
9
Merci pour la MAJ, cependant, il y a encore un truc qui me chiffone lol Lorsque je suis en bas d'un fichier de plusieurs page dans le notepad, et que je fais un shit+F1, il fait bien la manip, mais remonte au début du fichier. Ce qui est assez gênant...
Et j'aurais une question, je suis en train de faire un projet, mais je me heurte au problème suivant.
J'ai stocké dans une table une string. ex: ps*
Et je veux savoir lorsque l'utilisateur tape ps* dans le notepad ou autre. Comment pourrais-je faire stp? :)
Car avec le system de Hotkey, ça ne marche pas. Puisqu'il empêche l'utilisateur d'écrire la Hotkey, il fait une action à la place. Et le code étant très peu commenté, j'ai un peu de mal à comprendre à quoi sert toutes les fonctions :(
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
hi hi hi

Outil ephemere qui m'a été utile pendant 3 jours au plus, j'avais plein de champs a mettre en majuscules...

je ne m'etonne donc qu'a moitié que ca coince dans certains cas ;)

en tous cas, voilà, c'est corrigé... Merci ;)
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
9
Pas mal comme d'hab. Cependant, il y a un truc qui me chiffone. Et qui m'étonne venant de ta part Renfield.
Lorsqu'on ne choisit aucun texte, il y a une erreur.
Invalid procedure call or argument
Et cette ligne (107) est surligner
Mid$(Buffer, SelStart, SelLength) = UCase$(Mid$(Buffer, SelStart, SelLength)). @+
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.