フォームを移動可能にするには？

---

フォームのBorderstyleプロパティを０にするなどしてフォームのタイトルバーをはずした状態でフォームを移動可能にしたいのですが。

編集 削除

---

この掲示板を"BorderStyle"で検索してみてください。

編集 削除

---

フォームのボーダースタイルを０にすると、
タイトルバーがなくなるので自分でフォーム移動出来るようにしなければなりません。
下記のコードをフォームのソースの一番上に追加してみてください。
作業領域をドラッグされたときに移動できるようになります。

Private mlngX       As Long
Private mlngY       As Long
Private mbolLock    As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    mlngX = X
    mlngY = Y
    mbolLock = True

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    mbolLock = False

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If mbolLock Then
    
        Form1.Move Form1.Left - mlngX + X, Form1.Top - mlngY + Y
    End If

End Sub

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。