/ Snippet Library - View Code

Visual Basic / Mouse Routines / Current Mouse Pointer

Snippet details

ID: 404

Viewed: 1339

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Determine Current Mouse Pointer (system wide)

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllFunction GetMouseHandle() As Long Dim y As Long Dim tid As Long Dim hwnd As Long hwnd = GetForegroundWindow() tid = GetWindowThreadProcessId(hwnd, y) If tid = 0 Then GetMouseHandle = 0 Exit Function End If If tid <> GetCurrentThreadId() Then y = AttachThreadInput(GetCurrentThreadId(), tid, True) hwnd = GetCursor() y = AttachThreadInput(GetCurrentThreadId(), tid, False) End If GetMouseHandle = hwnd End Function

No Reviews to show