新建一窗体FORM2,在原窗体FORM1的在mousemove事件中增加FORM2.left=XX,FORM2.TOP=YY.XX,yy是鼠标的坐标.
目前累计服务客户成百上千家，积累了丰富的产品开发及服务经验。以网站设计水平和技术实力，树立企业形象，为客户提供成都网站建设、网站制作、网站策划、网页设计、网络营销、VI设计、网站改版、漏洞修补等服务。创新互联公司始终以务实、诚信为根本，不断创新和提高建站品质，通过对领先技术的掌握、对创意设计的研究、对客户形象的视觉传递、对应用系统的结合，为客户提供更好的一站式互联网解决方案，携手广大客户，共同发展进步。
在代码中加入以下事件代码即可让鼠标滚轮支持VScrollBar：
Private Sub mouse_wheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta = 120 Then
If VScrollBar1.Value - VScrollBar1.SmallChange = 0 Then
VScrollBar1.Value -= VScrollBar1.SmallChange
ElseIf VScrollBar1.Value - 1 = 0 Then
VScrollBar1.Value -= 1
End If
Else
If VScrollBar1.Value + VScrollBar1.SmallChange = VScrollBar1.Maximum Then
VScrollBar1.Value += VScrollBar1.SmallChange
ElseIf VScrollBar1.Value + 1 = VScrollBar1.Maximum Then
VScrollBar1.Value += 1
End If
End If
End Sub
简单啊
第一个问题
在鼠标的 move事件里面 得到鼠标的坐标点，然后更改label的，left 和top属性。具体的值你自己去算。
第二个问题
其实跟地一次差不多，只不过过加个标记，判断鼠标是否在按钮上进行了点击操作，鼠标按下时变成TRUE 然后也是在鼠标MOVE的时候，更改按钮的坐标点。当鼠标弹起的时候将这个标记置换成FALSE
回答完毕
使vb的窗体在电脑屏幕上随鼠标一起移动方法
先用VB做一个窗口，在top0
left0
的位置。使鼠标一移动到窗口，窗口就跑到屏幕右上角再移动到屏幕右上角，就跑到右下角，接着在屏幕右下角的窗口里移动又跑到左下角，最后在屏幕左下角的窗口里移动又跑回原来的位置。就这样不断循环。这是我跟网上学，写的代码，但是移到右上角的时候就不动了。谁能告诉我错在哪了，帮我改一下Private
Sub
Form_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Form1.Top
=
Then
Form1.Top
=
Form1.Left
=
16000
ElseIf
Form1.Left
=
16000
Then
Form1.Top
=
9500
Form1.Left
=
16000
ElseIf
Form1.Top
=
9500
Then
Form1.Top
=
9500
Form1.Left
=
ElseIf
Form1.Left
=
Then
Form1.Top
=
Form1.Left
=
End
If
End
Sub
