Discussion :

[Appwal]

Bonjour à tous,

Voici mon problème:

Je dispose d'une Textbox et je souhaiterais ajouter du texte à la position du curseur.

J'arrive bien à récupérer la position avec SelStart mais je ne vois pas comment ajouter du texte à cette place...

Merci d'avance à ceux qui ont la solution

[OhMonBato]

Et si tu essayais de "couper" ton texte en 2 parties ? Disons en utilisant les fonctions left et mid par exemple...

[pc75]

Bonjour,

Tu devrais pouvoir t'en sortir avec les fonctions instr(), left(), mid() et right()

[Appwal]

Left et Mid ont suffit!

Voici mon code si çà peut aider quelqu'un:

Code :

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

1
2
3
4
5
6
7
8
 
Dim StrStart As String
Dim StrEnd As String
 
StrStart = Left(TxtJavaScript.Text, TxtJavaScript.SelStart)
StrEnd = Mid(TxtJavaScript.Text, TxtJavaScript.SelStart + 1)
 
TxtJavaScript.Text = StrStart & txtAAjouter & StrEnd

Merci