Limit RichtextBox

Kelvin Perez · #1 (**permalink**) 01-14-2009, 2:23 PM

Hi:

I'm new to VB2008 (from old VB6 school). I'm going crazy with a small app I'm making. I'm running a loop and displaying the results in a RichtextBox but I want to limiting the display to always show the last 10 lines (Like the previous line go up beyond the user's view).

Any suggestions will be greatly appreciated.
Best Regards:
KP

MattP · #2 (**permalink**) 01-14-2009, 2:55 PM

Size your RichTextBox to 10 lines in height. ScrollToCaret will cause the RichTextBox to scroll to the bottom where you just added the line.

Code:

Public Class Form1

	Dim i As Integer = 1

	Private Sub uxAddLine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
	Handles uxAddLine.Click

		If Me.RichTextBox1.Text.Length = 0 Then
			Me.RichTextBox1.AppendText("Line: " & i)
		Else
			Me.RichTextBox1.AppendText(Environment.NewLine & "Line: " & i)
		End If

		Me.RichTextBox1.ScrollToCaret()

		i += 1

	End Sub

End Class

Kelvin Perez · #3 (**permalink**) 01-15-2009, 10:33 AM

Cool!!! Thanks!!! Will try it ASAP....

Just one question: By setting it to 10 lines, will the remaining lines be deleted or just scrolled?

MattP · #4 (**permalink**) 01-15-2009, 11:21 AM

I manually adjusted the height to only show 10 lines worth of data (135px worked well for my default font).

As I was clicking my button to add lines the additional lines were scrolled out of view.

Kelvin Perez · #5 (**permalink**) 01-16-2009, 7:41 AM

GREAT!!!!!!!!!!! It worked perfectly!!!! I'm so glad.....and so dumb.....I was going crazy saving lines to arrays and re-arranging the arrays and clearing the box and it was so simple.....

Thanks a lot for your help....I really appreciate it!!!!!!!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)