Как скроллом прокручивать MSFlexGrid?

[Divinich]

Ну в названии и есть суть вопроса, я сам попытался искать, но у меня ничего не получается, это вообще реально?

[Inferno]

ЭЭэ. А чем тебя не устраивает родной?

[Divinich]

Какой родной? Он вообще скроллом не прокручивается

[GSerg]

А дрова мышиные поставить? Logitech Mouseware там...

[Divinich]

У меня такое чувство что мы на разных языках разговариваем, не какие нах дрова, скрол сам по себе работает, а вот FlexGrid он не прокручивает хоть ты тресни.

[viny]

Try this:
http://www.gasanov.net/VBScroll.htm

[Divinich]

Вообще-то, мне нужно в проге, а не в ВБ таблицу прокручивать. Вы меня опять не так поняли.

[GSerg]

Знаешь, понять и правда сложно.
.toprow=i

[Divinich]

Нет, опять не поняли, мне нужно колесиком мышиным прокручивать, понимаете? чтоб там удобно было и все такое, а там по умолчанию такого нет.

[Ennor]

... мне нужно колесиком мышиным прокручивать...

Мышиные драйверы. Все определяется только ими. Ну или ты сам будешь ловить WM_WHEEL_DOWN/UP (или как оно там называется, не помню уже), но это лишний геморрой, могущий вдобавок вступить в конфликт с правильными дровами мыши, но уже не на твоей машине, а на машине пользователя, которую ты в общем случае вообще не контролируешь.

[Чудик]

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

Private Declare Function CallWindowProcA Lib "user32" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_WNDPROC = -4
Private Const WM_MOUSEWHEEL = &H20A
Private lpPrevWndProc As Long, Wheel As Integer

Public MyObject As Object
Private Const WM_VSCROLL As Long = &H115
Private Const SB_LINEUP As Long = 0
Private Const SB_LINEDOWN As Long = 1
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long


Sub Hook(hwnd As Long)
    lpPrevWndProc = SetWindowLongA(hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Sub UnHook(hwnd As Long)
    Call SetWindowLongA(hwnd, GWL_WNDPROC, lpPrevWndProc)
End Sub

Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo xErr
If uMsg = WM_MOUSEWHEEL Then
If wParam = -7864320 Or wParam = -23592960 Or wParam = -15728640 Then _
    hhh = SendMessage(MyObject.hwnd, WM_VSCROLL, SB_LINEDOWN, 0)
If wParam = 7864320 Or wParam = 23592960 Or wParam = 15728640 Then _
    hhh = SendMessage(MyObject.hwnd, WM_VSCROLL, SB_LINEUP, 0)
Else
    WindowProc = CallWindowProcA(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
End If
xErr:
End Function

Hook кидаешь в Load или Activate, Unhook - в Unload или Deactivate.

[Divinich]

Спасибо