Discussion :

[sousana_fly]

bonjour,
je veux déposer directement mon problème
je viens de creer une fenetre interne qui servira un clavier (les touches sont présenté par des boutons placé telque un clavier) et une fenetre standard(fenetre 1) qui contient un champ de saisie (Saisie1) et un champ fenetreinterne dans lequel j'appelle la fenetre interne clavier. dans ce que suit le code placé pour le bouton A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
nPosCurseur=Fenetre1.Saisie1..Curseur
Fenetre1.Saisie1..Valeur=Fenetre1.Saisie1[[A Fenetre1.Saisie1..Curseur-1]]+"A"+Fenetre1.Saisie1[[Fenetre1.Saisie1..FinCurseur A]]
Fenetre1.Saisie1..Curseur=nPosCurseur+1
nPosCurseur=nPosCurseur+1

le code marche bien juste le curseur ne s'affiche pas pour indiquer la position actuelle....et je cherche à l'afficher selon la position qu'il occupe après l'ajout d'un caractere....j'ai essayé avec EnvoieTouche mais le pb qu'il m'affiche toujours le curseur à la fin...SVP je compte sur vous pour m'aider
à l'attente de vos solutions veuillez agréer mes sincères salutations
Cordialement

[sousana_fly]

Bonjour,
alors je viens de decouvrir que le curseur est affiché grace à la fonction EnvoieTouche mais ce que je n'arrive pas à comprendre c'est comment l'utiliser lorsque je veut inserer un mot au milieu d'un champ dont j'ai déjà ecrit et que le curseur doit s'afficher après le mot inséré et non pas à la fin ?????
Cordialement
Sousana_fly

[wimbish]

Bonjour,

Essaye cela :

Ajoute un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RepriseSaisie(Saisie1)

à la fin du code du bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
nPosCurseur=Saisie1..Curseur
Saisie1..Valeur=Saisie1[[A Saisie1..Curseur-1]]+"A"+Saisie1[[Saisie1..FinCurseur A]]
Saisie1..Curseur=nPosCurseur+1
nPosCurseur=nPosCurseur+1
RepriseSaisie(Saisie1)

Décoche l'option "effacement automatique en saisie" dans les propriétés de saisie1

[sousana_fly]

Bonjour tous le monde
Merci wimbish de m'avoir proposer une solution à mon probleme....En fait je vais la essayer.
Infiniment merci
Cordialement
Sousana_fly