Научите прокручивать 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д