Breadcrumbs

[Son_Of_Diablo]

I need help with reading a RichTextBox line by line I have this code:

Code: Select all

        For i As Integer = 0 To RichTextBox1.Lines.Length - 1
            Label14.Text = (RichTextBox1.Lines(i))
        Next

But can't get it to work
It just skips to the last line cryer;


Anyone know how?



Thanks!

[mandai]

When setting the label text you should use this:

Code: Select all

Label14.Text += RichTextBox1.Lines(i) & vbCrLf

For each line, this will append the text and write a new line string.

[Son_Of_Diablo]

When setting the label text you should use this:

Code: Select all

Label14.Text += RichTextBox1.Lines(i) & vbCrLf

For each line, this will append the text and write a new line string.

Not exactly what i wanted, I want it to show the lines one by one so lets say the textbox looks like this:

• A
  B
  C

Then the label shows:

• A

...

• B

...

• C

[mandai]

Using vbLf instead of vbCrLf will fix that.
Different .Net versions will see the code differently.

[Son_Of_Diablo]

Using vbLf instead of vbCrLf will fix that.
Different .Net versions will see the code differently.

I get the same result when i use vbLf and vbCrLf :?

[mandai]

Can anyone else confirm this?

[CodenStuff]

It works for me. If you want it double-line spacing you can do:

Code: Select all

For i As Integer = 0 To RichTextBox1.Lines.Length - 1
            Label4.Text += RichTextBox1.Lines(i) & vbCrLf & vbCrLf
        Next

Im a little confused about what you are trying to do do you want the text from richtextbox to show in the label all at once or are you trying to do some type of rotating banner type thing where it shows 1 line at a time in the label?

[Son_Of_Diablo]

Im a little confused about what you are trying to do do you want the text from richtextbox to show in the label all at once or are you trying to do some type of rotating banner type thing where it shows 1 line at a time in the label?

You got it right!

I want to show 1 line at a time and then it cleans the line and show another one

[CodenStuff]

You can do that by using a Timer and something like this:

Code: Select all

Public RotateCount = 0
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If RotateCount = RichTextBox1.Lines.Count Then
            RotateCount = 0
        End If
        Label4.Text = RichTextBox1.Lines(RotateCount)
        RotateCount += 1
    End Sub

[Son_Of_Diablo]

You can do that by using a Timer and something like this:

Code: Select all

Public RotateCount = 0
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If RotateCount = RichTextBox1.Lines.Count Then
            RotateCount = 0
        End If
        Label4.Text = RichTextBox1.Lines(RotateCount)
        RotateCount += 1
    End Sub

Thank you CodenStuff!
It worked!

wahooo; wahooo; wahooo; wahooo; wahooo; wahooo; wahooo; wahooo;