FCT en Background pour mettre en maj les lettres

Bonjour,

je fais suite au message ci-dessous:

http://www.developpez.net/forums/d78...maj-actif-non/

Peut être avez vous une meilleure idée que moi pour ce que je dois faire...

http://img116.imageshack.us/img116/4629/capturerkjh.jpg
Comme vous pouvez le voir ci-dessus, il y a un champ "Code".

Les codes sont tous en Majuscules (d'où le post précédent).
J'aimerais que lorsqu'on cherche un code, les lettres s'affiche en MAJ (mais pas les tirets).

Dans le programme, un script VBScript est affectable à l'ouverture, la fermeture ou la validation d'une fenêtre.


Le défaut de "rendre active" la touche VERR MAJ (post précédent) est que les tirets deviennent des 6 (ce qui est encore acceptable).
Mais surtout, si on change de fenêtre qu'on désactive la touche VERR MAJ et qu'on revient sur le champs code, alors la touche reste désactivée...

J'ai eu deux idées pour réaliser ce que je veux:
La première étant de détecter l'appui sur la toucher "entrer" ou le clic avec la souris en dehors du champ.
Cependant, le champ code est un champ de recherche automatique, aussi, il recherche à chaque lettre écrite:
Exemple, si on tape "12" il sort toutes les lignes commençant par "12" sans besoin d'appuyer sur "entrer". Cette méthode est donc à oublier.

La seconde méthode est de changer toutes les lettres à leur appui en majuscule.
Pour cela, j'ai besoin de lancer une fonction en Background. (puisque les script ne sont activables qu'à l'ouverture etc.)
D'après ce que j'ai pu voir sur le net, il faut créer un objet WSH.

J'ai créé une fonction qui met en maj le champ code:

Code:

---

1 2 3 4 5 6

Sub UpperCaseCode() 'Mise en majuscule du Code If txtQuickSearch = "Code" Then SetValue "saiQuickSearch", Ucase(GetValue("saiQuickSearch")) End If End Sub

---

Maintenant j'aimerais activer la fonction à chaque appui sur une touche.
J'ai trouvé des scripts, mais je suis toujours perdu.

Code:

---

1 2 3 4 5

Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run("UpperCaseCode") WScript.Sleep 200 WshShell.AppActivate "UpperCaseCode"

---

Pouvez vous m'aidez à réaliser cela ?

Merci de Votre Aide.

Prosciuto

bonjour,

Citation:

---

Dans le programme, un script VBScript est affectable à l'ouverture, la fermeture ou la validation d'une fenêtre.

---

ah là je comprends mieux...

mais faute de doc, je ne peux pas deviner la façon dont le moteur vbs a été intégré au logiciel et les éléments qui y sont exposés (modèle objet ou autre)

quant à intervenir de "l'extérieur", cela revient à faire un hook système sur le clavier et le vbs n'est pas vraiment l'outil idéal pour ça :aie:
il existe peut-être sur le net un outil capable de modifier la casse des entrées clavier

Citation:

---

Envoyé par omen999

bonjour,

ah là je comprends mieux...

---

Je ne sais pas quoi.. mais moi je comprend pas mieux :joke:

Citation:

---

Envoyé par omen999

mais faute de doc, je ne peux pas deviner la façon dont le moteur vbs a été intégré au logiciel et les éléments qui y sont exposés (modèle objet ou autre)

---

Le problème c'est que la doc est presque inexistante (comme tous les produits bon marché j'ai l'impression) mais je sais qu'on peut faire du WSH puisque je l'utilisais pour activer la touche "V.M."

Citation:

---

Envoyé par omen999

quant à intervenir de "l'extérieur", cela revient à faire un hook système sur le clavier et le vbs n'est pas vraiment l'outil idéal pour ça :aie:
il existe peut-être sur le net un outil capable de modifier la casse des entrées clavier

---

Pour ça, je ne comprend pas vraiment l'expression "hook système" mais je vais chercher pour voir si je trouve quelque chose.
Sinon, le logiciel m'oblige à coder en VB donc je n'ai pas le choix, il faut que je trouve.

A ton avis, est-il possible de créer un "mini programme" dans un autre langage et de l'appeler via le script WSH (comme la calculette dans cette exemple) ?

Code:

---

1 2 3 4 5

Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run("calc.exe") WScript.Sleep 200 WshShell.AppActivate "Calculatrice"

---

Merci pour ton aide.

Citation:

---

Le problème c'est que la doc est presque inexistante

---

c'est le modèle économique qui veut ça, le bouzin est vendu à prix plancher et la marge se fait sur la formation, l'assistance, les abonnements et ce serait gâcher le métier que de fournir une doc trop précise :mrgreen:
mais il doit bien y avoir un minimum sur le sujet ?

pour ce qui est d'un outil extérieur, il faudrait qu'il soit suffisamment rusé pour reconnaitre le masque et réactiver le capslock
car s'il faut l'activer manuellement autant appuyer sur la touche capslock...:roll:

Citation:

---

Envoyé par omen999

mais il doit bien y avoir un minimum sur le sujet ?

---

Il y a bien une "mini doc" qui mentionne certaines fonctions qui pourraient m'être utiles comme:

Code:

---

1 2 3 4 5

function UseLibrary(dll as String) as Boolean function CreateRecordSet(SQL as String) as Object function CreateProcedure(function as String, package as String (optionnel), shema as String (optionnel)) as Object function GetHInt control as String as String

---

Puis des sub:

Code:

---

1 2 3 4 5

sub GetValue(fid as Variant) as Variant sub SetValue(fid as Variant, value as Variant) sub SetHint control as String, value as String sub AppelAction(Action as String) => Lance une action donnée sub EnumereActions(mask as String, soft as String (optionnal)) as String => Retourne une liste de toutes les actions disponibles

---

Après test, GetHint et SetHint s'utilise de la même façon que Get/SetValue:

Code:

---

sub GetHint(control as String) value as String

---

Ce qui me laisse dubitatif sur la qualité de la doc...

Citation:

---

Envoyé par omen999

pour ce qui est d'un outil extérieur, il faudrait qu'il soit suffisamment rusé pour reconnaitre le masque et réactiver le capslock
car s'il faut l'activer manuellement autant appuyer sur la touche capslock...:roll:

---

Le but c'est de ne plus avoir a appuyer dessus justement ^^
J'ai été occupé ce matin, je ferais des test plus tard et tiendrais au courant.

Bonne journée.

maintenant, ton exemple de code initial UpperCaseCode est limpide
seulement, il ne peut être résolu que si le script gère les événements sur les contrôles et plus précisément l'événement "OnChange" qui se déclenche lorsque le contenu du contrôle "saiQuickSearch" se modifie par l'action de l'utilisateur sur le clavier

en outre la doc décrit une syntaxe plutôt conforme à vba office que vbs ce qui ne serait pas impossible puisque microsoft a vendu ce type de licence à des éditeurs tiers :aie:

En fait, c'est ce que j'appelais "appeler ma fonction en boucle".
C'est pour ça que je voulais créer une fonction qui appelais ma fonction UpperCaseCode() à chaque appui sur une touche.
J'ai vu qu'en VBS on pouvait faire du multithread.
Mon idée était donc d'écouter l'appui sur les touches dans un thread secondaire et d'appeler la fonction "UpperCaseCode" dans le thread principal.
En gros, c'était reproduire l'évènement OnChange.

Maintenant je peux essayer de voir si c'est de la forme de VBA Office, et alors peut être que la fonction OnChange existe d'origine.

Aurais tu une page d'aide pour VBA Office ? (je vais de ce pas voir sur le forum :))

J'ai trouvé comment utiliser onChange sur le msdn:
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

Je regarde si ça fonctionne dans mon logiciel

[Edit] Après test:

La propriété OnChange est une propriété d'un objet. lorsque j'essaie de l'affecter à saiQuickSearch (le nom de ma comboBox) il me dit "object mismatch"

Je comprend pas, logiquement, c'est le nom de ma combobox saiQuick Search. Du coup je devrais pouvoir lui affecter des propriété...

Ou alors ce n'est qu'un alias, et je ne pense pas que c'est possible d'affecter directement les comboBox. puisque je n'ai pas accès aux script pour les comboBox (ce serais trop facile :D)

A bientot, Merci