vb6.0 中，如何让当前窗口响应屏幕上的MOUSE事件

Question

当前窗口不是全屏，如何响应屏幕上其它区域（不是本窗口的区域）的MOUSE事件，也就是在屏幕上不是本窗口区域的地方发生MOUSE消息时，本窗口如何接收。

Answer 1

添加一个类模块，命名为cCursor
代码如下
Option Explicit
DefLng A-Z

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 SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Public Property Get X() As Long

Dim tmpPoint As POINTAPI
Call GetCursorPos(tmpPoint)
X = tmpPoint.X

End Property

Public Property Let X(ByVal vNewValue As Long)

Call SetCursorPos(vNewValue, Y)

End Property

Public Property Get Y() As Long

Dim tmpPoint As POINTAPI
Call GetCursorPos(tmpPoint)
Y = tmpPoint.Y

End Property

Public Property Let Y(ByVal vNewValue As Long)

Call SetCursorPos(X, vNewValue)

End Property

窗体中添加一个Timer，interval设成1

代码如下

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim cursor As New cCursor
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbLeftButton) Then
Me.Caption = "LeftButton Down!"
Else
Me.Caption = "LeftButton Up!"
End If
Me.Caption = Me.Caption & " " & cursor.X & "/" & cursor.Y
End Sub

Answer 2

没做过，估计钩子可以实现。