如何用VB捕捉鼠标的坐标进行划线

user_tmlvc

希望实现在ppt中划线：一点固定 另一点随鼠标的移动而动
曾给出如下解答。
但不知如何实现 请教高手

在窗体可以响应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事件，只能建议你再做个定时器了。

hisbee

期待高手指点

user_ueirm

很久了 没有人指点， 期待中

user_gphzb

也想知道,关注