上古卷轴5救星皮革护甲:VB中如何确定鼠标位置

来源:百度文库 编辑:中科新闻网 时间:2024/05/07 02:53:36
像编一个下棋程序那样,如何使鼠标移至哪里,哪里就显示一点什么?

使用 WINDOWSAPI实现:具体用法:
在FORM中加入:

Private Type POINTAPI
x As Long
y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
然后在比如COMMAND1_CLICK()里加入如下代码:
dim p as POINTAPI
GetCursorPos p
然后p.x和p.y就是鼠标的位置(绝对坐标)