Question

vb.net窗体的移动问题

当窗体formborderstyle属性为none时 怎么样用鼠标移动窗体

Answer 1

Public X, Y As Integer
Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
X = e.X : Y = e.Y
End Sub
Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If X = e.X And Y = e.Y Then Exit Sub
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Left = Me.Left + e.X - X
Me.Top = Me.Top + e.Y - Y
End If
End Sub

Answer 2

http://www.microsoft.com/china/community/Column/60.mspx

http://community.csdn.net/Expert/topic/3405/3405344.xml?temp=.9050714