🚀 go-pugleaf

Yosi wrote in message <6g7sve$gg7$1@ptop03.ptop.ad.jp>...
>　初めまして、Yosiです。
>　MDIフォームを使うと、プログラムを実行したときに、子フォームが
>一つ表示されますが、この子フォームを最初は表示させず、「フォームの
>作成」ボタンを押したときに一つづつ表示させるようにするには
>どうしたらよいのでしょうか？
>　よろしくお願いします。


プロジェクトの設定で、「スタートアップ」がMDI子フォームになっていませんか？
これをMDI親フォームなり、その他のフォームなり、Sub Mainなりに変更すれば
OKです。

 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

として実行したところ、「子フォーム作成ボタン」を最初に押したとき、
２つの子フォームが表示され、以後「子フォーム作成ボタン」を一回押す
ごとに一つずつ子フォームが作成されます。
　
　また、表示された全ての子フォームを終了させ、もう一度
「子フォーム作成ボタン」を押すと、また二つの子フォームが作成されます。

　これはどういうことなのでしょうか？

In article <6gg1e4$70l$1@ptop03.ptop.ad.jp>, Yosi wrote:

>として実行したところ、「子フォーム作成ボタン」を最初に押したとき、
>２つの子フォームが表示され、以後「子フォーム作成ボタン」を一回押す
>ごとに一つずつ子フォームが作成されます。
>　
>　また、表示された全ての子フォームを終了させ、もう一度
>「子フォーム作成ボタン」を押すと、また二つの子フォームが作成されます。

原因の一つとして考えられるのは、New によって作成した
インスタンスのプロパティにアクセスするつもりで、下記の
ようなコードを書いた場合です。

Private Sub 子フォーム作成ボタン_Click()
    Dim MakeForm As New 子フォーム
    MakeForm.Show
    子フォーム.Caption = "Hello" ' 間違い
End Sub

正しくは、

Private Sub 子フォーム作成ボタン_Click()
    Dim MakeForm As New 子フォーム
    MakeForm.Show
    MakeForm.Caption = "Hello" 
End Sub

です。

-- 
Computer Institute of Japan, Ltd.
佐藤正宏 masahiro@cij.co.jp

Sato Masahiro wrote in message <6ghain$nqe$1@hawaii.ykhm.cij.co.jp>...
>In article <6gg1e4$70l$1@ptop03.ptop.ad.jp>, Yosi wrote:
>

>>２つの子フォームが表示され、以後「子フォーム作成ボタン」を一回押す
>>ごとに一つずつ子フォームが作成されます。
>>　
>
>原因の一つとして考えられるのは、New によって作成した
>インスタンスのプロパティにアクセスするつもりで、下記の
>ようなコードを書いた場合です。
>
>Private Sub 子フォーム作成ボタン_Click()
>    Dim MakeForm As New 子フォーム
>    MakeForm.Show
>    子フォーム.Caption = "Hello" ' 間違い
>End Sub
>
>正しくは、
>
>Private Sub 子フォーム作成ボタン_Click()
>    Dim MakeForm As New 子フォーム
>    MakeForm.Show
>    MakeForm.Caption = "Hello"
>End Sub
>
>です。
>

 Yosiです。
　ヘルプをよーく読むと、MDIフォームにはAutoShowChildrenプロパティが
あり、それをFalseにすると表示されなくなりました。

　お騒がせしてすみませんでした。

　ご回答をくださった方、ありがとうございました。