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

ギブ 2003-04-03 01:23:43 No: 106504

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

たかみちえ URL 2003-04-03 04:48:43 No: 106505

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

batchman 2003-04-05 03:29:29 No: 106506

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

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