Codenstuff.com

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


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


Anyone know how?



Thanks!

When setting the label text you should use this: For each line, this will append the text and write a new line string.

mandai wrote:

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

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

mandai wrote:

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 :?

Can anyone else confirm this?

It works for me. If you want it double-line spacing you can do:
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?

CodenStuff wrote:

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

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

CodenStuff wrote:

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;