注意:要设置 form 的 controlbox 属性为 false ,
特别注意: form.text 要设置为空 , 否则不会把标题栏去掉
Dim MousX As Integer
Dim MousY As Integer
Dim CurrX As Integer
Dim CurrY As Integer
Public Sub myMouseDown( ByVal sender As Object , ByVal ex As MouseEventArgs) Handles MyBase .MouseDown
If ex.Button = MouseButtons.Left Then
' 如果是鼠标左键,则不捕获鼠标
Me .Capture() = False
' 获得鼠标坐标(相对于窗体)
MousX = ex.X
MousY = ex.Y
End If
End Sub
Public Sub myMouseMove( ByVal sender As Object , ByVal ex As MouseEventArgs) Handles MyBase .MouseMove
If ex.Button = MouseButtons.Left Then
' 左键操作
CurrX = Me .Left - MousX + ex.X
CurrY = Me .Top - MousY + ex.Y
' 设置窗体相对于屏幕的坐标
Me .SetDesktopLocation(CurrX, CurrY)
End If
End Sub
'
Public Sub myMouseUp( ByVal sender As Object , ByVal ex As MouseEventArgs) Handles MyBase .MouseUp
If ex.Button = MouseButtons.Left Then
Me .Capture() = True
End If
End Sub