vb.net鼠标跟随,窗口跟随鼠标

Vb.Net 怎么让窗口随鼠标动

新建一窗体FORM2,在原窗体FORM1的在mousemove事件中增加FORM2.left=XX,FORM2.TOP=YY.XX,yy是鼠标的坐标.

如何在VB.net中用程序控制鼠标移动和点击

调用api

在Visual Baisc.net中的声明：

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放

Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模拟鼠标左键按下

vb.net label跟着鼠标移动

简单啊

第一个问题

在鼠标的 move事件里面 得到鼠标的坐标点，然后更改label的，left 和top属性。具体的值你自己去算。

第二个问题

其实跟地一次差不多，只不过过加个标记，判断鼠标是否在按钮上进行了点击操作，鼠标按下时变成TRUE 然后也是在鼠标MOVE的时候，更改按钮的坐标点。当鼠标弹起的时候将这个标记置换成FALSE

回答完毕