|
| Vérouillage des majuscules par programmation |
| Iniciado por Frédéric RICHARD, 07,sep. 2020 08:26 - 3 respuestas |
| |
| | | |
|
| |
Miembro registrado
27 mensajes |
|
| Publicado el 07,septiembre 2020 - 08:26 |
Bonjour,
J'ai en Windev25 des combos basées sur des fichiers (les pays par exemple)
Les données sont enregistrées en MAJUSCULES sur notre AS/400.
Si je coche l'option Recherche de ma combo, si je saisis 'france', la recherche he ne fonctionne pas mais si je saisis 'FRANCE', la recherche fonctionne parfaitement.
J'en conclus donc qu'il faut respecter la case afin que les recherches fonctionnent.
J'ai donc ajouté le code EnvoyeTouche("{VERMAJ}") dans le code d'entrée de ma combo; cela n'a pas d'effet dur le verrouillage des majuscules.
J'ai tenté les API
nVK_CAPITAL est un entier = 20
nDwExtraInfo est un entier = 0x0
nKEYEVENTF_EXTENDEDKEY est un entier = 0x1
nKEYEVENTF_KEYUP est un entier = 0x2
nRésult est un entier
nRésult = API("USER32","keybd_event",nVK_CAPITAL,0x45,nKEYEVENTF_EXTENDEDKEY,0)
WL.Trace("Envoi CapsLock (keypressed)",nRésult)
nRésult = API("USER32","keybd_event",nVK_CAPITAL,0x45,( nKEYEVENTF_EXTENDEDKEY OU nKEYEVENTF_KEYUP) ,0)
WL.Trace("Envoi CapsLock keyup)",nRésult)
La saisie passe bien en majuscule mais pour quelques secondes uniquement ( après la frappe de 4 ou 5 caractères, le clavier repasse en minuscule)
Si quelqu'un a une idée ou une piste, je rends.
Merci. |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
215 mensajes |
|
| Publicado el 07,septiembre 2020 - 09:38 |
Bonjour
Et avec ce code dans l'init du projet :
EXTERNE "WinConst.WL"
VK_CAPITAL1 est une entier = 0x14 + 1
Clavier est un tableau de 256 caractères
AppelDLL32("user32", "SetKeyboardState", &Clavier[1])
Clavier[VK_CAPITAL1] = 1
AppelDLL32("user32", "SetKeyboardState", &Clavier[1])
Bon dev |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
2.323 mensajes |
|
| Publicado el 07,septiembre 2020 - 10:01 |
Bonjour,
Et en utilisant l'événement "A chaque modification" avec une fonction de mise en majuscule du champ ?
--
Bon dev,
Jean-Pierre |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
27 mensajes |
|
| Publicado el 07,septiembre 2020 - 10:14 |
| Super, un grand MERCI, ça fonctionne ! |
| |
| |
| | | |
|
| | | | |
| | |
|