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

解決

nisi  2002-07-24 16:43:53  No: 75890  IP: [192.*.*.*]

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

編集 削除
蜻蛉  URL  2002-07-24 18:23:50  No: 75891  IP: [192.*.*.*]

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

編集 削除
蜻蛉  URL  2002-07-24 18:25:03  No: 75892  IP: [192.*.*.*]

新規インスタンス

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

NEditor.Show

これでいいとおもいます

編集 削除
nisi  2002-07-24 18:56:38  No: 75893  IP: [192.*.*.*]

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

編集 削除
蜻蛉  URL  2002-07-24 19:46:05  No: 75894  IP: [192.*.*.*]

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

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

編集 削除
nisi  2002-07-25 09:33:10  No: 75895  IP: [192.*.*.*]

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

編集 削除