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

解決済

質問者：h_shinon
質問日時：2004/12/16 01:20
回答数：3件

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： Azzuri
回答日時：2004/12/16 21:16

フォームAにTimerコントロールを用意して、

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

- 0
- 件

通報する

No.2

回答者： nandarou-1011
回答日時：2004/12/16 15:47

フォームには移動したときのイベントがありません。

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

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

- 0
- 件

通報する

No.1

回答者： tinu2000
回答日時：2004/12/16 07:26

おはようございます。

時間が無いので、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
などとすると、フォームがずれたまま移動します。