mdiを開いた時にフォームが二つ開くのを防ぐには？

解決

nisi 2002-07-25 01:43:53 No: 75890

MDIを自分でつくると、子フォームが一つも表示されていない状態で子フォームを呼び出そうとすると、必ず二つでてきます。本を読んでやったんですがまったく駄目です。だれか解決法を教えて下さい。

蜻蛉 URL 2002-07-25 03:23:50 No: 75891

新規インスタンスを定義していないからだと思われます。
ついでに本の書名も教えてもらえませんか？

蜻蛉 URL 2002-07-25 03:25:03 No: 75892

新規インスタンス

Dim NEditor As New Form1 '<-Form1 が子フォーム

NEditor.Show

これでいいとおもいます

nisi 2002-07-25 03:56:38 No: 75893

それが定義されているんですが、まだ駄目です。
少し説明不足だったので補足します。
子フォームが１つ以上表示されている時は
新規作成で新しく子フォームを出しても１つしか表示されないんですが、
親フォームだけの時に、新規作成で新しく子フォームを出そうとすると
子フォームが２つもでてくるんです。

蜻蛉 URL 2002-07-25 04:46:05 No: 75894

う〜ん…こちらで即席MDIアプリつくってチェックしましたが全然そんな気配なし…

どんなコードがかかれているのかわからないので
Private Sub mnuNewEditor_Click()
Dim NEditor As New Form1
NEditor.Show
End Sub
として実行していますが全然OKです。
どんなコードが入っているのでしょうか？

nisi 2002-07-25 18:33:10 No: 75895

ようやくわかりました。
子フォームのResizeのところのコードがおかしかったため
子フォームがロードされた時の処理を何度もおこなっていて
新しく子フォームが呼び出されていたみたいです。
ありがとうございました。