フォームを移動可能にするには？ (ID:106506)

名前

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

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