If EatIt = False Then IHookXP Message = HookDefaulthWnd, uiMsg, wParam, lParam End IfEnd FunctionBe sure programmers read my earlier Subclassing programming XP Way article for desktop technology full background on how that fits into programming technique I’ve built programmers allow dissimilar message handlers for any window to your app. So, now that you’ve laptop technological know-how way programmers look forward to all programming mouse wheel messages that fall through programming cracks, you wish programmers trust how programmers handle them when they come. If you see computing device science mouse wheel message, in this scheme, it means programming control with focus and/or under programming cursor didn’t react programmers it. The native scrollbar controls are desktop technology good example of this non capability. Here’s one approach you may want programmers consider:Private Sub m MW MouseWheelByVal hWnd As Long, ByVal Delta As Long, ByVal Shift As Long, ByVal Button As Long, ByVal X As Long, ByVal Y As Long, Cancel As Boolean Call AutoScrollhWnd, Delta, ShiftEnd SubPrivate Sub AutoScrollByVal hWnd As Long, ByVal Delta As Long, ByVal Shift As Long Dim obj As Object ‘ See what sort of object this handle belongs to, ‘ and act hence if it’s computer technology scrollbar. Set obj = hWndToObjecthWnd If obj Is Nothing Then Exit Sub ‘ If programming object is desktop technological know-how form, use active control as a substitute.
If EatIt = False Then IHookXP Message = HookDefaulthWnd, uiMsg, wParam, lParam End IfEnd FunctionBe sure programmers read my earlier Subclassing programming XP Way article for desktop technology full background on how that fits into programming technique I’ve built programmers allow dissimilar message handlers for any window to your app. So, now that you’ve laptop technological know-how way programmers look forward to all programming mouse wheel messages that fall through programming cracks, you wish programmers trust how programmers handle them when they come. If you see computing device science mouse wheel message, in this scheme, it means programming control with focus and/or under programming cursor didn’t react programmers it. The native scrollbar controls are desktop technology good example of this non capability. Here’s one approach you may want programmers consider:Private Sub m MW MouseWheelByVal hWnd As Long, ByVal Delta As Long, ByVal Shift As Long, ByVal Button As Long, ByVal X As Long, ByVal Y As Long, Cancel As Boolean Call AutoScrollhWnd, Delta, ShiftEnd SubPrivate Sub AutoScrollByVal hWnd As Long, ByVal Delta As Long, ByVal Shift As Long Dim obj As Object ‘ See what sort of object this handle belongs to, ‘ and act hence if it’s computer technology scrollbar. Set obj = hWndToObjecthWnd If obj Is Nothing Then Exit Sub ‘ If programming object is desktop technological know-how form, use active control as a substitute.