scroll richtextbox

[Dayne]

My form has a richtextbox control with two button ("up" and "down") . I need
to use those buttons to scroll the text in the richtextbox "page-by-page".
Any ideas?

[Arne Janning]

Hi Dayne!

"Dayne" schrieb

My form has a richtextbox control with two button ("up" and "down") . I
need
to use those buttons to scroll the text in the richtextbox "page-by-page".
Any ideas?

it only works if the RTF-Box has the focus (and therefore a caret).

Here is a small example using WinAPI-SendMessage:

Imports System.Runtime.InteropServices

'SendMessage-Declaration
<DllImport("user32.dll")> _
Private Shared Function SendMessage( _
ByVal window As IntPtr, _
ByVal message As Integer, _
ByVal wparam As Integer, _
ByVal lparam As Integer) As IntPtr
End Function

'Constants for SendMessage
Private Const WM_VSCROLL As Integer = &H115
Private Const SB_PAGEUP As Integer = 2
Private Const SB_PAGEDOWN As Integer = 3

'ScrollDown-Button
Private Sub Button1_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click

'Let's add some text to the RTF-Box
For i As Integer = 0 To 100
RichTextBox1.Text += " Hello World "
Next

'One page down
SendMessage(RichTextBox1.Handle, WM_VSCROLL, SB_PAGEDOWN, 0)
End Sub

'ScrollUp-Button
Private Sub Button2_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button2.Click

'One page up
SendMessage(RichTextBox1.Handle, WM_VSCROLL, SB_PAGEUP, 0)
End Sub
Cheers

Arne Janning

[Da Tr]

I don't know what I just did ,. but it worked!!..next question . I want
to list the number of "pages" to scroll... Example "1/5 Pages" .. how do
i do this?

Dayne

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Ken Halter]

Arne Janning wrote:

OT... a far more efficient way to add text to a box (no double buffering
or unnecessary concatenation).... Since I'm a VB6 type (just pokin'
'round here), the syntax below may not be exact... but the logic's still
valid.

With RichTextBox1

For i As Integer = 0 To 100
.SelectionStart = .Text.Length
.SelectedText = " Hello World "
Next

End With

--
Ken Halter - MS-MVP-VB - http://www.vbsight.com
Please keep all discussions in the groups..

[Herfried K. Wagner [MVP]]

"Ken Halter" <Ken_Halter@Use_Sparingly_Hotmail.com> schrieb:

With RichTextBox1

For i As Integer = 0 To 100

.SelectionStart = .Text.Length

Well, in .NET you can use '.TextLength' too :-).

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>