Discussion :

[fikou]

Bonjour,

Dans un textbox multiligne j'aimerai insérer une ligne à l'avant dernière position.

Je sèche grave !!!!

FikoU

[nikoko34]

Ohhh tu n'as pas du trop bien chercher alors !
Le caractère VbCr & VbCrLf te permettent de passer à ligne.
Deux caractères de suite te feront une ligne blanche dans ton textbox.

[fikou]

salut Nikoko34,
merci pour ta réponse.

Mon textbox est remplis au départ de 2 éléments obligatores.

Code :

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

1
2
3
txtinfo.text = dtpDate.value
txtInfo.Text = txtInfo.Text & vbCrLf & cboIntervention.Text
txtInfo.Text = txtInfo.Text & vbCrLf & "Total" 'dernière ligne

Ensuite les autres éléments sont sélectionné dans un datagridview.
Mon textbox sera donc rempli de 3 à plusieurs éléments.
J'aimerai que chaque nouvel éléments soit inséré à l'avant dernière ligne de mom textbox avant "Total".
Je ne connais pas à l'avance le nombre de ligne de mon textbox.

@+FikoU

[nikoko34]

OK, je comprends mieux la problématique.

Il te faut utiliser la méthod LastIndexOf appliquée au string, qui, appliquée à ce caractère de retour chariot, te permettra d'effectuer ton insertion.

[fikou]

Ca maaaaaarche,

Voici ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprecedant.Click
      Dim i As Integer
      Dim rep As Integer
      For i = 0 To txtInfo.Text.Length - 1
         rep = txtInfo.Text.LastIndexOf(vbCrLf, i)
      Next
      txtInfo.Text = txtInfo.Text.Insert(rep, vbCrLf & "toto")
   End Sub

Ce bout de code m'insert toto à l'avanr dernière ligne de mon textbox.

Merci nikoko34
@+FiloU