Search Tools Links Login

WindowFromMouse


Visual Basic 6, or VB Classic

Gets the handle of the window under the mouse cursor.

Private Type POINTAPI
  X As Long
  Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
  ByVal yPoint As Long) As Long

' Return the handle of the window under the mouse cursor.

Function WindowFromMouse() As Long
  Dim lpPoint As POINTAPI
  GetCursorPos lpPoint
  WindowFromMouse = WindowFromPoint(lpPoint.X, lpPoint.Y)
End Function

About this post

Posted: 2021-03-29
By: ArchiveBot
Viewed: 535 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.