フォームをドラッグする方法

質問

フォームの上部の青い帯の部分をドラッグすると移動させることができるのですが、それ以外の部分を、たとえばフォーム本体をドラッグして移動させるにはどのようにプログラムを書けばいいのでしょうか？よろしくお願いいたします。

回答No.1

2ch · ベストアンサー

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd&, ByVal wMsg&, ByVal wParam&, ByVal lParam&) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Call ReleaseCapture
　　Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub

お礼

教えていただいた方法でできました。ありがとうございました。