Научите прокручивать Grid мышкой - VB

Узнай цену своей работы

Формулировка задачи:

Люди! Научите прокручивать Grid центральным колёсиком у мышки...

Решение задачи: «Научите прокручивать Grid мышкой»

textual
Листинг программы
Option Explicit
 
Private Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' (ByVal Hwnd As Long, ByVal Operation _
As String, ByVal File As String, ByVal Parameters As String, ByVal Directory As String, ByVal ShowCmd As Long) As Long
Dim x As Long, y As Long, But As Boolean, Warning As Boolean
 
Private Declare Function SendMessageS Lib 'user32' Alias 'SendMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const WM_VSCROLL = &H115
Private Const SB_LINEDOWN = 1
'''''''''''''''''''''
Private Sub Mouse1_MouseWheelDown(Hwnd As Long)
Dim ee As Double
ee = SendMessageS(msgMain.hwnd, WM_VSCROLL, SB_LINEDOWN, 0)
End Sub
 
Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
 If Warning = False Then
    Mouse1.TrackWheel MSFlexGrid1.Hwnd, False
End If
End Sub

Оцени полезность:

6   голосов , оценка 4.167 из 5