问题九 登陆窗体可以任意拖动

本着为用户着想，我想让机房登陆窗体可以任意拖动，其实不管我们今后做什么项目，都可以用到的。

只需我们在Form_MouseDown 和 Form_MouseMove 俩个事件下简单操作一下下，登陆窗体就可以任意拖动了。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim X0 As SingleDim Y0 As SingleX0 = XY0 = YEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim X0 As SingleDim Y0 As SingleIf Button = 1 ThenMe.Left = Me.Left + X - X0Me.Top = Me.Top + Y - Y0End IfEnd Sub

【总结】

一心为用户着想。