TexteRésolu

Question

Bonjour (ou bonsoir) a tous, 

Est-ce que quelqun serait me dire comment, quand on appuie par exemple sur un boutton (command1) , et , que  par exemple, dans une textbox il y a deja ecrit "a" et "b", en cliquant sur ce boutton, on introduit du text entre meme si la personne n'a pas positionn&#233; son curseur entre "a" et "b" ? 

si quelqun serait m'aider , ce serait sympas

econs · Accepted Answer

Oups, j'ai oubli&#233; une initialisation :







 Dim chaine1 As String

 Dim chaine2 As String

 

 Private Sub Form_Load()

    chaine1 = "DEBUT"

    chaine2="FIN"

     Text1.Text = chaine1 & chaine2

 End Sub

 

 Private Sub Command1_Click()

     '    ins&#233;rer du texte entre a et b

     Text1.Text = chaine1 & "nouveauTexte" & chaine2

 End Sub

 

 Private Sub Command2_Click()

     '    Positionner le curseur entre a et b

     Text1.SelStart = Len(chaine1)

 End Sub

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

Exemple &#233;largi avec deux chaines de caract&#232;res (&#224; la place de "a" et "b")











Dim chaine1 As String

Dim chaine2 As String



Private Sub Form_Load()

    Text1.Text = chaine1 & chaine2

End Sub



Private Sub Command1_Click()

    '    ins&#233;rer du texte entre a et b

    Text1.Text = chaine1 & "nouveauTexte" & chaine2

End Sub



Private Sub Command2_Click()

    '    Positionner le curseur entre a et b

    Text1.SelStart = Len(chaine1)

End Sub


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_ho2 · Answer

salut econs,
Merci d'avoir repondu aussi vite

econs · Answer

Pas de quoi. Quand la question est claire, &#231;&#224; va toujours tr&#232;s vite ! :)

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_ho2 · Answer

oui, tout a fais d'accord : )

Gobillot · Answer

Private Sub Command1_Click()

    Dim i As Integer

    i = InStr(Text1.Text, "a")

    If i > 0 Then

   '   positionner le curseur &#224; l'endroit voulu

       Text1.SelStart = i

      '    ins&#233;rer le texte &#224; la position curseur

       Text1.SelText = "nouveauTexte"

       End If

End Sub


Daniel

cs_ho2 · Answer

merci bien d'avoir repondu 'Gobillot', 
mais est-ce qu'il est possible de placer le curseur entre (sur une autre ligne) sh&#233;ma :

a

b

                     cliqu&#233; sur le boutton :

a
nouveautext(par exemple)
b

Gobillot · Answer

tout d&#233;pend ce que tu veux faire.

TextBox Multiligne qui contient une Ligne "aaa"







exemple:

je cherche la Ligne "aaa" qui se termine par vbCrLf

je positionne mon curseur au d&#233;but de la Ligne suivante, en tenant compte de la Longueur de la cha&#238;ne plus le vbCrLf.

je rajoute la nouvelle Ligne sans oublier le vbCrLf



Private Sub Form_Load()

    Text1 = "aaa" & vbCrLf

    Text1 = Text1 & "bbb" & vbCrLf

End Sub



Private Sub Command1_Click()

    Dim chaine As String

    Dim i As Integer

    

    chaine = "aaa"

    

    i = InStr(Text1.Text, chaine & vbCrLf)

    If i > 0 Then

   '   positionner le curseur &#224; l'endroit voulu

       Text1.SelStart = i + Len(chaine) + 1

    '   ins&#233;rer le texte &#224; la position curseur

       Text1.SelText = "nouveauTexte" & vbCrLf

       End If

End Sub


Daniel

cs_ho2 · Answer

Super, c'etait ce qu'il me fallait encore merci beaucoup !!!

cs_ho2 · Answer

merci a tout les deux (Gobillot et Econs) !

lio

Texte

10 réponses

Discussions similaires