Question

如何使vb的窗体在电脑屏幕上随鼠标一起移动？

就是一个vb的窗体比较小，当打开窗体所在程序后，移动鼠标后此窗体随鼠标移动

Answer 1

把下列代码放到你的窗体代码中：
Private mMouseDown As Boolean
Private mX As Single, mY As Single

Private Sub Form_Load()
mMouseDown = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mMouseDown = Not mMouseDown
mX = X
mY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mMouseDown Then Me.Move Me.Left + X - mX, Me.Top + Y - mY

End Sub

点击窗体后窗体随鼠标移动，再次点击停止跟随。
鼠标将保持在点击（在窗体上的）的位置。
MouseMove事件不是很灵敏，所以鼠标不能移动太快。

追问

做了，没效果

追答

什么叫没效果？

追问

加百度hi细聊
账号名：思源之约

Answer 2

　　使vb的窗体在电脑屏幕上随鼠标一起移动方法
　　先用VB做一个窗口，在top0 left0 的位置。使鼠标一移动到窗口，窗口就跑到屏幕右上角再移动到屏幕右上角，就跑到右下角，接着在屏幕右下角的窗口里移动又跑到左下角，最后在屏幕左下角的窗口里移动又跑回原来的位置。就这样不断循环。这是我跟网上学，写的代码，但是移到右上角的时候就不动了。谁能告诉我错在哪了，帮我改一下Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Form1.Top = 0 Then
Form1.Top = 0
Form1.Left = 16000
ElseIf Form1.Left = 16000 Then
Form1.Top = 9500
Form1.Left = 16000
ElseIf Form1.Top = 9500 Then
Form1.Top = 9500
Form1.Left = 0
ElseIf Form1.Left = 0 Then
Form1.Top = 0
Form1.Left = 0
End If
End Sub

Answer 3

先用VB做一个窗口，在top0 left0 的位置。使鼠标一移动到窗口，窗口就跑到屏幕右上角再移动到屏幕右上角，就跑到右下角，接着在屏幕右下角的窗口里移动又跑到左下角，最后在屏幕左下角的窗口里移动又跑回原来的位置，就这样不断循环。

Answer 4

MDI

追问

具体点