Scroll RichTextBox

Scroll RichTextBox

Post by JezB » Sat, 07 Aug 2004 20:37:15

How do I programatically scroll a RichTextBox to the end of it's contents ?

Scroll RichTextBox

Post by hirf-spam- » Tue, 10 Aug 2004 19:22:01

* "JezB" < XXXX@XXXXX.COM > scripsit:

When using a RichTextBox control for displaying logging information, it is
useful to scroll the recently added line into view. There are two ways to
accomplish this:

Private Const WM_VSCROLL As Int32 = &H115
Private Const SB_BOTTOM As Int32 = 7

Private Declare Auto Function SendMessage Lib "user32.dll" ( _
ByVal hwnd As IntPtr, _
ByVal wMsg As Int32, _
ByVal wParam As Int32, _
ByVal lParam As Int32 _
) As Int32

Private Sub AddLine(ByVal Destination As RichTextBox, ByVal Text As String)
With Destination
.AppendText(Text & ControlChars.NewLine)
SendMessage(Destination.Handle, WM_VSCROLL, SB_BOTTOM, 0)
End With
End Sub

- or -

Dim ctr As Control = Me.ActiveControl
With Me.RichTextBox1
.AppendText("Hello World!")
End With

The 2nd solution has a side-effect: Setting the focus to the
RichTextBox control may raise validation events.

Herfried K. Wagner [MVP]
<URL: ;


Scroll RichTextBox

Post by Etienne Bo » Wed, 11 Aug 2004 12:37:42

Setting the selection to the end of RichTextBox with the hide selection
property to false does the job to some point.

Etienne Boucher

"JezB" < XXXX@XXXXX.COM > a rit dans le message de


Scroll RichTextBox

Post by hirf-spam- » Wed, 11 Aug 2004 20:20:10

* "Etienne Boucher" < XXXX@XXXXX.COM > scripsit:

... only if the richtextbox has the focus.

M S Herfried K. Wagner
M V P <URL: ;
V B <URL: ;