🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.visualbasic
Article #274

[Q]MDI子フォームが二つできるんですが・・・

#274
From: Yosi
Date: Wed, 08 Apr 1998 00:00
41 lines
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-mail
References: <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