一个跟着鼠标到处跑的按钮

发表于 讨论求助 2022-08-04 14:59:14

一个跟着鼠标到处跑的按钮

VB窗体中有一个功能可以获取鼠标所在的位置,用离左上角的xy坐标形式表示出来。

另外,在窗体中添加一个按钮,且按钮宽度为2000像素,高度为300像素。

按钮的位置使用按钮左上角到窗体左上角的x,y坐标表示。

要让鼠标指针位于按钮的中间,只要将command按钮的位置设置在x-1000,y-300(这里x,y是鼠标的位置坐标)

然后,在窗体空白处双击,选择MouseMove事件。


添加代码

Command1.Left =X-1000

Command1.Top = Y -300

点击运行,是不是这个按钮就跟鼠标到处跑了。


发表