[SOLVED] TextBox.Lines property

[mindloop]

Hey i am trying to simulate a console for my app so i'm using a textbox to show some output information.
I am using following code for displaying info in the textbox:

private lineCount as integer = 0
private sub addLine(byval newline as string)
dim i as integer
if lineCount >= 20
   for i = 0 to 20
      pInfo.Lines(i)=pInfo.Lines(i+1) ' pInfo is my textbox
   next i
   pInfo.Lines(20)= newline 'newline is the string i pass to the sub containing new info i need to show.
else
   pInfo.Lines(lineCount)=newline
   lineCount=lineCount+1
end if
end sub

yet nothing happens as if textbox.lines property were read only , yet i receive no error still my textbox remains unchanged.

I initialised the textbox with property
pInfo.Text = "\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n";
how should i approach this? i was so happy to have discovered .Lines property so i dont have to use string functions, but i feel like i'm missing something.

[sixfeetsix]

just add the lines by appending a new line of text to the current text of the TextBox.

Public Property Lines() As String()

The Lines member of TexBox is an array, so to add lines, you have to resize the array, which is a little odd only to add a line of text to your textbox.

TextBox1.Text += "newlineoftext" + Environment.NewLine

[mindloop]

Hehe, dont think u got my problem right. i want to avoid scrollbar from appearing. therefor i want to make line no 2 become line no 3 and so on.
adding lines would just fill my textbox and a scrollbar would appear.
i need to handle lines by managing the string array Lines[]. but apparently i cant handle it as a regular string array since i cant replace say Lines[2] value with a new value let's say Lines[3]
i initialised the array with blank lines. my textbox is fixed size therefor i only need to initialise 21 lines that's how much lines it can fit without scrolling.
i dont need to resize the string array. i only need to reuse the defined elements.

[sixfeetsix]

try this :

Private lineCount As Integer = 0
 
    Private Sub addLine(ByVal newline As String)
 
        Dim asLines As String()
 
        If lineCount >= 20 Then
            asLines = TextBox1.Lines
            asLines(lineCount Mod 20) = newline
            TextBox1.Lines = asLines
        Else
            TextBox1.Text += newline + Environment.NewLine
        End If
 
        lineCount += 1
 
    End Sub

Don't know why the intermediate array 'asLines' is necessary, but without it, the line doesn't get replaced. Anybody knows why?

[mindloop]

thx worked.