タグ:

タイトルバーのないフォームを動かす

example (VB.net)

Public Class Form1
    
  '初期位置の記憶用
  Private PointBuff As Point
    
  Private Sub Form1_MouseDown _
   (ByVal sender As System.Object, 
    ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles MyBase.MouseDown, Button1.MouseDown

      PointBuff = e.Location
    
  End Sub

  Private Sub Form1_MouseMove _
   (ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles MyBase.MouseMove
    
    '何かしらのボタンが押されてるときに実行
    If Not e.Button = Windows.Forms.MouseButtons.None Then
      Me.Location += e.Location - PointBuff
    End If
  End Sub
End Class

特に難しいこともありませんでした。ポイントはちょっと考えればわかることですが、 Me.Location += e.Location - PointBuff 位ですね。