Article View: fj.lang.visualbasic
Article #274[Q]MDI子フォームが二つできるんですが・・・
From: Yosi
Date: Wed, 08 Apr 1998 00:00
Date: Wed, 08 Apr 1998 00:00
41 lines
2189 bytes
2189 bytes
Yosiです。ご回答ありがとうございます。
・・・さっそくですが、またわからないことがありました。
市崎 大介 wrote in message <6g82fr$a0b$1@nn-tk003.ocn.ad.jp>...
>
>Yosi wrote in message <6g7sve$gg7$1@ptop03.ptop.ad.jp>...
>> MDIフォームを使うと、プログラムを実行したときに、子フォームが
>>一つ表示されますが、この子フォームを最初は表示させず、「フォームの
>>作成」ボタンを押したときに一つづつ表示させるようにするには
>>どうしたらよいのでしょうか?
>
>
>プロジェクトの設定で、「スタートアップ」がMDI子フォームになっていませんか?
>これをMDI親フォームなり、その他のフォームなり、Sub Mainなりに変更すれば
>OKです。
>
ご指摘のとおり、、「スタートアップ」がMDI子フォームになって
ました。
そこで、Sub Main を作り、
Public Sub main()
MDI親フォーム.Show
End Sub
として、MDIフォームの「子フォーム作成ボタン」に、
Private Sub 子フォーム作成ボタン_Click()
Dim MakeForm As New 子フォーム
MakeForm.Show
End Sub
として実行したところ、「子フォーム作成ボタン」を最初に押したとき、
2つの子フォームが表示され、以後「子フォーム作成ボタン」を一回押す
ごとに一つずつ子フォームが作成されます。
また、表示された全ての子フォームを終了させ、もう一度
「子フォーム作成ボタン」を押すと、また二つの子フォームが作成されます。
これはどういうことなのでしょうか?
Technical Details
Message-ID:
<6gg1e4$70l$1@ptop03.ptop.ad.jp>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<6g7sve$gg7$1@ptop03.ptop.ad.jp> <6g82fr$a0b$1@nn-tk003.ocn.ad.jp>Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS X-Google-Thread: 105c2e,7c6b7d2ccaf8de1c X-Google-Attributes: gid105c2e,public From: "Yosi" <kurata_y@p1.coralnet.or.jp> Subject: [Q]MDI子フォームが二つできるんですが・・・ Date: 1998/04/08 Message-ID: <6gg1e4$70l$1@ptop03.ptop.ad.jp> X-Deja-AN: 342070057 Content-Transfer-Encoding: 7bit References: <6g7sve$gg7$1@ptop03.ptop.ad.jp> <6g82fr$a0b$1@nn-tk003.ocn.ad.jp> Mime-Version: 1.0 Content-Type: text/plain; charset="iso-2022-jp" X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3 Organization: OKI Internet Service PTOP Newsgroups: fj.lang.visualbasic