Как скролить окно своими кнопками?

[GRS]

Приветствую.

Собственно: корявый ScrollBar элемента RichTextBox не вписывается в общий стиль интерфейса моей программы. Как следствие RichTextBox.ScrollBars = rtfNone.

...но скрол-то нужен! Нарисовал свои стрелочки, вроде как "туды" и "сюды", чёт рабежался, думаю: ща быстро API функцию возьмём...

Короче искал, искал... Я так и не понял, что за RECT структура и для чего она, но, кажется это не самый такой радужный вариант. Конечно, сейчас у меня сапсем не фонтан: SendMessage (RichTextBox.HWnd, WM_KEYDOWN, 34, 0) и при нажатии аж страшно становится - ни о какой плавной прокруте речи быть не может.

Как выкрутиться? Как мне программно организовать прокрутку? Ну, не PAGE блин DOWN же эмулировать?!... У кого какие идеи, буду признателен. Повторюсь, ScrollWindow не получается, я вообще в нее врубиться не могу с этими RECT'ами...

Сообщение послать полю? Какое?

Спасибо.

[Alexanbar]

Что-то в этом духе:

Public Declare Function GetScrollInfo Lib "user32" (ByVal hwnd As Long, ByVal n As Long, lpScrollInfo As SCROLLINFO) As Long
Public Declare Function GetScrollPos Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long) As Long
Public Declare Function GetScrollRange Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nBar As Long, _
lpMinPos As Long, _
lpMaxPos As Long) As Long
Public Declare Function SetScrollInfo Lib "user32" (ByVal hwnd As Long, ByVal n As Long, lpcScrollInfo As SCROLLINFO, ByVal bool As Boolean) As Long
Public Declare Function SetScrollRange Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nMinPos As Long, ByVal nMaxPos As Long, ByVal bRedraw As Long) As Long
Public Declare Function SetScrollPos Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Long) As Long

Public Type SCROLLINFO
cbSize As Long
fMask As SIF_MASK 'Long
nMin As Long
nMax As Long
nPage As Long
nPos As Long
nTrackPos As Long
End Type

Сообщения:

Public Const WM_HSCROLL = &H114
Public Const WM_VSCROLL = &H115

А а RECT всё не просто, а очень просто - это всего-лишь прямоугольник, который задаётся своими границами (левая, правая, верх, низ).

[GRS]

Alexanbar, спасибо, буду разбираться... Как я понимаю - это наиболее радикальный метод решения подобного вопроса? Эх...

[GRS]

Все оказалось на много проще, как всегда.

Код: Выделить всё

Private Const WM_VSCROLL = &H115
Private Const SB_LINEDOWN = 1
Private Const SB_LINEUP = 0

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


И работает замечательно. Всем спасибо.