Ersetzen von Text restlichen Text in Textbox löscht

Question

ich folgenden Code verwenden Text zu ersetzen

Text1.Text = Replace(quer, "demoo", "demo") 

i mehrzeilige Textbox bin mit , die mit 10lines von Text gefüllt ist

Ich möchte nur finden und ersetzen Wort „demoo“ mit „Demo“ auf Linie 1 nur

auch wenn line2 oder andere Zeilen enthalten „demoo“, ich möchte nur auf line1 ersetzen

Answer 1

Private Sub Command1_Click() 
    Dim lines() As String 

    If Len(Text1.Text) = 0 Then Exit Sub 

    lines = Split(Text1.Text, vbCrLf) 
    lines(0) = Replace(lines(0), "demoo", "demo") 
    Text1.Text = Join(lines, vbCrLf) 
End Sub 

Answer 2

Sie COUL d Verwenden Sie die TextBoxBase.Lines Eigenschaft.

Dim lines As String() = Me.TextBox1.Lines 
lines(0) = lines(0).Replace("demoo", "demo") 
Me.TextBox1.Lines = lines