user_tmlvc 发表于 2009-6-2 08:33:00

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

希望实现在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 发表于 2009-6-2 10:09:27

期待高手指点

user_ueirm 发表于 2009-6-2 13:00:49

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

user_gphzb 发表于 2009-6-2 13:18:55

也想知道,关注
页: [1]
查看完整版本: 如何用VB捕捉鼠标的坐标进行划线