在 VB 程式中如何讀取 Mouse 游標的位置?
使用 GetCursorPos Windows API, 以下是呼叫的方法:
1. API 的宣告:
Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
註:如果以上的宣告放在「一般模組」底下, 應將 Private 保留字去掉。
2. 呼叫範例:
Dim p As POINTAPI
Call GetCursorPos( p )
' ( p.x, p.y ) 就等於滑鼠游標的位置