Question

VB 如何在屏幕上画一个红色边框并随鼠标移动? VB高手！来！

程序中我是用 API函数Rectangle 在屏幕上画的边框。请问 如何让它在屏幕上 并随鼠标移动？(不要把VB窗体全屏化了模拟屏幕) 因为我的桌面是动态桌面 所以不要锁屏哦！我QQ271072330
请不要把VB 窗体透明了 覆盖模拟屏幕 也不要挖空窗体搞成边框 也不要用四个VB窗体代替四边来代替边框 也有人说把边框作成鼠标光标但是那样的话边框大小不能改变吧并且也很小。因为以上几种太浪费资源了也不太理想 我就想用Rectangle画上去 再用个函数擦除！ 只用函数画边框，不要用窗体来代替边框！只要能满足条件的 分我可以加到200分 只要你能作到！ 我邮箱 qqsq001@163.com 先谢了 在线等...
边框也不要取反色 要用纯色(有的边框作出来是反色不知为什么)

Answer 1

你捕获鼠标的坐标就可以了啊。再根据坐标来画边框就是了。你不是已经能画边框和擦除边框了吗。应该很简单啊。

Answer 2

设置一个timer，时间间隔任意，启动timer之后，取鼠标X,Y坐标，然后把此参数传递给Rectangle。
取坐标和Rectangle 函数都放在timer函数里。

Answer 3

设置一个timer，时间间隔任意，启动timer之后，取鼠标X,Y坐标，然后把此参数传递给Rectangle。

Answer 4

这个你可能需要一个全局鼠标hook

VB6的话需要把鼠标hook写到dll里, 在主程序调用dll实现全局鼠标跟踪

然后在 hook里处理鼠标移动事件, 调用你的屏幕画框函数

vb6 做hook很危险, 一个不留心就会使ide挂掉, good luck

Answer 5

鬼给你做啊,VB做不到