How to bring the RichTextBox vertical scrollbar to lowest position ?

[tony007]

Hi all . i am adding data to richtextbox and want the scrollbar to move to lowest position each time data get entred. Could you any show me how that can be done.Thabnks

form1.RichTextBox1.Text = ChatText$

[Merri]

If you use SelText and SelLength together to add the new text to the bottom, the view scrolls to the position the text was added to.

[tony007]

thanks for you reply. how to lower the scrollbar to the botom each time new data get added so the user sees the fresh data without manully scrolling down. Could you show me how to use selText and sellength ?

[Merri]

Sub AddNewLine(ByRef ChatLine As String)
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
    RichTextBox1.SelText = vbNewLine & ChatLine
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub

Now you can call AddNewLine to add the new line of chat log.

The problem that remains is that the chat log can't be scrolled conviniently as it always goes down even if user is scrolling to see the old log.

[tony007]

Mery many thanks it work well. But only problem is that for some reason when i enter the data there is empty space between each line !! Is there away to avoid those empty lines ?Thanks

[Merri]

On that case I guess you're adding a line change yourself, so simply taking away the vbNewLine from the above code should work just fine