在窗体可以响应MouseMove事件,参数中就可已获得鼠标位置。如果是在幻灯片中,获得鼠标位置要调用API函数GetCursorPos,声明
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
其中POINTAPI 的定义是
Type POINTAPI
x As Long
y As Long
End Type
得到鼠标位置后就可以划线了。不过我不知道在幻灯片中怎样响应MouseMove事件,只能建议你再做个定时器了。
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
其中POINTAPI 的定义是
Type POINTAPI
x As Long
y As Long
End Type
得到鼠标位置后就可以划线了。不过我不知道在幻灯片中怎样响应MouseMove事件,只能建议你再做个定时器了。