UserForm i\u00e7ine yaz\u0131lacak kodlar\u2026\u2026<\/p>\n
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)\r\nHookListBoxScroll\r\nEnd Sub\r\n \r\nPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)\r\nUnhookListBoxScroll\r\nEnd Sub<\/pre>\n<\/div>\nModule alan\u0131na yaz\u0131lacak kodlar\u2026.<\/p>\n
\nOption Explicit\r\n \r\nPrivate Type POINTAPI\r\nX As Long\r\nY As Long\r\nEnd Type\r\n \r\nPrivate Type MOUSEHOOKSTRUCT\r\npt As POINTAPI\r\nhwnd As Long\r\nwHitTestCode As Long\r\ndwExtraInfo As Long\r\nEnd Type\r\n \r\nPrivate Declare Function FindWindow Lib \"user32\" _\r\nAlias \"FindWindowA\" ( _\r\nByVal lpClassName As String, _\r\nByVal lpWindowName As String) As Long\r\n \r\nPrivate Declare Function GetWindowLong Lib \"user32.dll\" _\r\nAlias \"GetWindowLongA\" ( _\r\nByVal hwnd As Long, _\r\nByVal nIndex As Long) As Long\r\n \r\nPrivate Declare Function SetWindowsHookEx Lib \"user32\" _\r\nAlias \"SetWindowsHookExA\" ( _\r\nByVal idHook As Long, _\r\nByVal lpfn As Long, _\r\nByVal hmod As Long, _\r\nByVal dwThreadId As Long) As Long\r\n \r\nPrivate Declare Function CallNextHookEx Lib \"user32\" ( _\r\nByVal hHook As Long, _\r\nByVal nCode As Long, _\r\nByVal wParam As Long, _\r\nlParam As Any) As Long\r\n \r\nPrivate Declare Function UnhookWindowsHookEx Lib \"user32\" ( _\r\nByVal hHook As Long) As Long\r\n \r\nPrivate Declare Function PostMessage Lib \"user32.dll\" _\r\nAlias \"PostMessageA\" ( _\r\nByVal hwnd As Long, _\r\nByVal wMsg As Long, _\r\nByVal wParam As Long, _\r\nByVal lParam As Long) As Long\r\n \r\nPrivate Declare Function WindowFromPoint Lib \"user32\" ( _\r\nByVal xPoint As Long, _\r\nByVal yPoint As Long) As Long\r\n \r\nPrivate Declare Function GetCursorPos Lib \"user32.dll\" ( _\r\nByRef lpPoint As POINTAPI) As Long\r\n \r\nPrivate Const WH_MOUSE_LL As Long = 14\r\nPrivate Const WM_MOUSEWHEEL As Long = &H20A\r\nPrivate Const HC_ACTION As Long = 0\r\nPrivate Const GWL_HINSTANCE As Long = (-6)\r\n \r\nPrivate Const WM_KEYDOWN As Long = &H100\r\nPrivate Const WM_KEYUP As Long = &H101\r\nPrivate Const VK_UP As Long = &H26\r\nPrivate Const VK_DOWN As Long = &H28\r\nPrivate Const WM_LBUTTONDOWN As Long = &H201\r\n \r\nPrivate mLngMouseHook As Long\r\nPrivate mListBoxHwnd As Long\r\nPrivate mbHook As Boolean\r\n \r\nSub HookListBoxScroll()\r\nDim lngAppInst As Long\r\nDim hwndUnderCursor As Long\r\nDim tPT As POINTAPI\r\nGetCursorPos tPT\r\nhwndUnderCursor = WindowFromPoint(tPT.X, tPT.Y)\r\nIf mListBoxHwnd <> hwndUnderCursor Then\r\nUnhookListBoxScroll\r\nmListBoxHwnd = hwndUnderCursor\r\nlngAppInst = GetWindowLong(mListBoxHwnd, GWL_HINSTANCE)\r\nPostMessage mListBoxHwnd, WM_LBUTTONDOWN, 0&, 0&\r\nIf Not mbHook Then\r\nmLngMouseHook = SetWindowsHookEx( _\r\nWH_MOUSE_LL, AddressOf MouseProc, lngAppInst, 0)\r\nmbHook = mLngMouseHook <> 0\r\nEnd If\r\nEnd If\r\nEnd Sub\r\n \r\nSub UnhookListBoxScroll()\r\nIf mbHook Then\r\nUnhookWindowsHookEx mLngMouseHook\r\nmLngMouseHook = 0\r\nmListBoxHwnd = 0\r\nmbHook = False\r\nEnd If\r\nEnd Sub\r\n \r\nPrivate Function MouseProc( _\r\nByVal nCode As Long, ByVal wParam As Long, _\r\nByRef lParam As MOUSEHOOKSTRUCT) As Long\r\nOn Error GoTo errH 'Resume Next\r\nIf (nCode = HC_ACTION) Then\r\nIf WindowFromPoint(lParam.pt.X, lParam.pt.Y) = mListBoxHwnd Then\r\nIf wParam = WM_MOUSEWHEEL Then\r\nMouseProc = True\r\nIf lParam.hwnd > 0 Then\r\nPostMessage mListBoxHwnd, WM_KEYDOWN, VK_UP, 0\r\nElse\r\nPostMessage mListBoxHwnd, WM_KEYDOWN, VK_DOWN, 0\r\nEnd If\r\nPostMessage mListBoxHwnd, WM_KEYUP, VK_UP, 0\r\nExit Function\r\nEnd If\r\nElse\r\nUnhookListBoxScroll\r\nEnd If\r\nEnd If\r\nMouseProc = CallNextHookEx( _\r\nmLngMouseHook, nCode, wParam, ByVal lParam)\r\nExit Function\r\nerrH:\r\nUnhookListBoxScroll\r\nEnd Function<\/pre>\n<\/div>\nKolay gele…<\/p>\n","protected":false},"excerpt":{"rendered":"
UserForm i\u00e7ine yaz\u0131lacak kodlar\u2026\u2026 Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) HookListBoxScroll End Sub Private Sub UserForm_QueryClose(Cancel As Integer,…<\/p>\n