Discussion :

[Magnusmen]

bonjour, j'ais un petit problème voici ma situation :
j'ais une richetextbox avec Ecrit dedans par exemple

ligne 1: bonjour
ligne 3:
ligne 2: oui et toi

j'aimerais qu’après la ligne bonjour sa Ecrit ça va mais tout sa avec un code sa veut dire que je precise quelle ligne aprés

mais je sais pas comment faire sait daieure pour ça que je fait appelle a vous, merci davance

[clementmarcotte]

De quossé que ça veut dire en feransais ?



Un RichTextBox a une collection Lines() qui représente chaque ligne écrite dans le richetexteboxe. Cette collection peut être parcourue comme toute autre collection; mais tu n'auras jamais de ligne numéro 3 entre la ligne 1 et la ligne 3.

[Pol63]

un listbox ?

[DD-78]

Bonjour,
J'espère avoir bien compris ta question.
Au final tu veux obtenir ceci :

ligne 1: bonjour
ligne 2: ça va
ligne 3: oui et toi

Si c'est le cas, voici le code que je te propose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit On
Option Strict On
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "Démo insère réponse dans RichTextBox"
        AddHandler Button1.Click, AddressOf Insere_Texte_Click ' Il faut avoir crée un  Button1
        init_RichTextBox()
    End Sub
    Private Sub init_RichTextBox()
        RichTextBox1.Clear()
        RichTextBox1.SelectedText = "Bonjour" & ControlChars.Cr
        RichTextBox1.SelectedText = "oui et toi"
    End Sub
    Private Sub Insere_Texte_Click(sender As Object, e As EventArgs)
        Dim positionDeDepart As Integer
        Dim texte, reponse As String
        Dim position As Integer
        '----------------------------------------------------------------------------
        texte = "Bonjour" ' texte recherché dans RichTextBox1.
        reponse = "ça va" ' Ta réponse
        positionDeDepart = 0 ' Position où commence la recherche dans  RichTextBox1 (dans ce cas au début).
        '-----------------------------------------------------------------------
        If texte.Length > 0 And positionDeDepart >= 0 Then
            ' 'Obtenir la position du 1er caractére de la chaîne de recherche dans RichTextBox1.
            Dim indexDuTexte As Integer = RichTextBox1.Find(texte, positionDeDepart, RichTextBoxFinds.MatchCase)
            ' Détermine si le texte a été trouvé dans RichTextBox1.
            If indexDuTexte >= 0 Then
                position = indexDuTexte
            Else
                MsgBox(texte & " ==> Non trouvé.") : Exit Sub
            End If
               '----------------------------------------------------------------------
        position += Len(texte) ' Position où la chaine est inséré.
        RichTextBox1.Text = RichTextBox1.Text.Insert(position, ControlChars.Cr & reponse & ControlChars.Cr) ' Insertion de la réponse.
 End If
 
    End Sub
   End Class

[Magnusmen]

Merci baucoup c'est parfait bonne journé a tousse