کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

Mouse Hook

در سیستم 64 بیت



Public Function LowLevelMouseProc(ByVal nCode As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr

If nCode > 0 Then

    Select Case wParam

         Case WM_NCDESTROY, WM_DESTROY

             UnhookWindowsHookEx hhk

         Case WM_RBUTTONDOWN, WM_RBUTTONUP

           LowLevelMouseProc = 1

        Exit Function

         Case Else

          ( LowLevelMouseProc = CallNextHookEx(hhk, nCode, wParam, lParam

     End Select

 End If

CallNextHookEx hhk, nCode, wParam, lParam

End Function





Hook ؛ کنترل یا رهگیری Mouse Action




Responding To Mouse Click mouse-click




hook  is a mechanism by which an application can intercept events, such as

 messages, mouse actions, and keystrokes



(HHOOK SetWindowsHookExA( int idHook, HOOKPROC lpfn, HINSTANCE hmod, DWORD dwThreadId 

WH_MOUSE_LL=14


CALLBACK LowLevelMouseProc( _In_ int    nCode, _In_ WPARAM wParam, _In_ LPARAM lParam

HC_ACTION=0


wParam [in]
Type: WPARAM

The identifier of the mouse message. This parameter can be one of the following messages: WM_LBUTTONDOWN, WM_LBUTTONUP, WM_MOUSEMOVE, WM_MOUSEWHEEL, WM_MOUSEHWHEEL, WM_RBUTTONDOWN, or WM_RBUTTONUP.

If nCode is less than zero, the hook procedure must return the value returned by CallNextHookEx.

(CallNextHookEx( HHOOK hhk, int nCode, WPARAM wParam, LPARAM lParam