二つのフォームを一緒に移動

質問

二つのフォームを並べて表示させ、フォームＡを移動すると、それにともないフォームＢも一緒に移動させたいと考えています。

どのようにすれば良いのでしょうか。
ＶＢ６を使用しています。ご教授お願いします。

回答No.3

Azzuri · ベストアンサー

フォームAにTimerコントロールを用意して、
Timerイベントに
フォームB.Move Me.Left + Me.Width, Me.Top
とするのはどうですか。
TimerコントロールのIntervalの設定はお好みで。

回答No.2

nandarou-1011

フォームには移動したときのイベントがありません。それで、一番妥当なのは#1のようにMouseMoveイベントですが、タイトルバー上では認知しないために、移動後一度タイトルバー以外のフォーム上でマウスを動かす事によってようやく移動します。

VB.NETではForm_Moveイベントが組み込まれているようですけど。

回答No.1

tinu 2000（@tinu2000）

おはようございます。

時間が無いので、VBAのサンプルを、
これは、重なった３つのフォームを、いつも重なっているようにするコードです。

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm2.Top = UserForm1.Top
UserForm2.Left = UserForm1.Left
UserForm3.Top = UserForm1.Top
UserForm3.Left = UserForm1.Left
End Sub

VBAですので、VB6とは少しコードが違うかも知れませんが、
そこは、何となく分かると思います。

UserForm1.Top＋50
UserForm1.Left+50
などとすると、フォームがずれたまま移動します。