マウスドラッグでフォームを動かすの変更点

追加された行はこの色です。
削除された行はこの色です。
マウスドラッグでフォームを動かすへ行く。
マウスドラッグでフォームを動かすの差分を削除

[[VisualBasic.NET]]

* マウスドラッグでフォームを動かす [#o956ce54]
 Private Mouse_x As Integer
 Private Mouse_y As Integer
 
 Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
     Mouse_x = Cursor.Position.X
     Mouse_y = Cursor.Position.Y
 End Sub
 Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
     If e.Button = MouseButtons.Left Then
         MyBase.Top += (Cursor.Position.Y - Mouse_y)
         MyBase.Left += (Cursor.Position.X - Mouse_x)
         Mouse_x = Cursor.Position.X
         Mouse_y = Cursor.Position.Y
     End If
 End Sub

マウスドラッグでフォームを動かす の変更点

マウスドラッグでフォームを動かすの変更点