Question

VB如何记录鼠标在屏幕某范围内的点击次数？

例如范围是(X1,Y1),(X2,Y1),(X1,Y2),(X2,Y2)四点所围成的区域

Answer 1

可以利用窗体的MouseDown过程来检测鼠标的点击。每次MouseDown被触发的时候就可以得到鼠标点下时的X和Y坐标。计数可以使用全局变量sum，每一次触发MouseDown，如果在那个范围里面，sum就加1。

伪代码：
Dim sum as integer

Private Sub Form_MouseDown(X As Single, Y As Single)
if (x>=x1) and (x<=x2) and (y>=y1) and (y<=y2) then
sum = sum + 1
end if
End Sub

需要提前判断X1、X2的大小关系。

追问

按你这样做了，但是好像不对窗体外的坐标有效。我说的X1,X2,Y1,Y2都是屏幕坐标点，应该是要引用API函数的

追答

的确是这样。网上有API函数表，你可以以Position神马的为关键字找一下。