战争对于士兵的影响:VB中如何确定鼠标位置

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/11 03:47:31
像编一个下棋程序那样,如何使鼠标移至哪里,哪里就显示一点什么?

使用 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就是鼠标的位置(绝对坐标)