VB.NETのMDIアプリについて

質問

現在VB.NET EXP 2008を用いてMDIアプリを作成しています。

下記のような3種類のフォームを作成し,アプリ開始時にMAINの中にMENUを表示させ,
MENU上のボタンをクリックすると,MASTERを表示させたいと考えています。

親フォーム : MAIN
子フォーム : MENU
子フォーム : MASTER

まずはMAINのLoadイベントで

Dim fMENU As New MENU
fMENU.MdiParent = Me
fMENU.Show()

と記述して実行するとMENUがMAIN内に表示されます。

次に,MENU上のボタンクリックイベントで

Dim fMASTER as New MASTER
Dim fMAIN as New MAIN
fMASTER.MdiParent = fMAIN
fMASTER.Show()

として実行してもMASTERが表示されません。

そこで,MAINのLoadイベントに

Dim fMASTER as New MASTER
fMASTER.MdiParent = Me

と追記し,MENU上のボタンクリックイベントに

Dim fMASTER as New MASTER
fMASTER.Show()

として実行すると,MASTERは表示されますが,
MAINの外側に表示されてしまいます。

どのようにすれば,MAIN内にMASTERを
表示させることが出来ますでしょか?

回答No.2

田中 裕之（@bybalsendercase） · ベストアンサー

補足情報有難うございました。

まだ、少々動作について疑問点がありますが、下記のコードと目的の動作と、どのように違うのか教えてください。
Public Class MAIN
Private Sub MAIN_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Shown
Dim fMENU As New MENU
fMENU.MdiParent = Me
Dim fMASTER As New MASTER
fMASTER.MdiParent = Me
fMENU.MdiParent = Me
fMENU.Show()
End Sub
End Class

Public Class MENU
Dim fMASTER As New MASTER
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
fMASTER.Show()
End Sub
End Class

Public Class MASTER
Private Sub MASTER_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim fMAIN As New MAIN
Me.MdiParent = MAIN
End Sub
End Class

お手数おかけします。
宜しくお願いします。

お礼

ありがとうございます。
上記のコードを実行したところ,実現したい通りに動作しました。

MASTERのLoadイベント内のMe.MdiPArent にfMAINを指定していたのが問題だったようでした。

ご丁寧にご回答いただき本当にありがとうございました。

回答No.4

田中 裕之（@bybalsendercase）

たびたび申し訳ありません。

＞MENUとMASTERは両方ともMAINの子にしたいと考えています。
補足情報に上記の記入がありましたので、MENUとMASTERが両方ともMAINの子になっているか、確認のコードを追加しました。
実行した結果、MENUとMASTERの両方ともMAINの子になっているようです。

Public Class MAIN
Private Sub MAIN_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Shown
'下記のコードを追加しました。
'-------------------------------------
Dim mitem As New MenuItem("開く")
mitem.MdiList = True
Me.Menu = New MainMenu
Me.Menu.MenuItems.Add(mitem)
'-------------------------------------

Dim fMENU As New MENU
fMENU.MdiParent = Me
Dim fMASTER As New MASTER
fMASTER.MdiParent = Me
fMENU.MdiParent = Me
fMENU.Show()
End Sub
End Class

回答No.3

田中 裕之（@bybalsendercase）

すいません、追記です。
MDIは、デザイナー画面でIsMdiContainer をTrueにしています。

回答No.1

田中 裕之（@bybalsendercase）

こんばんは

ご質問の内容は、

親フォーム→MAIN
子フォーム→MENU
孫フォーム→MASTER

のような関係でしょうか？

親フォーム「MAIN」の中に子フォーム「MENU」を表示
子フォーム「MENU」の中に孫フォーム「MASTER」を表示
だとすると、おそらく、そうとう難しい操作だと思います。
以前これをやろうと思い、いろいろ調べましたが、どこかに「以上のような操作はできない」ようなことが書いてありました。

また、質問の内容と回答が違ってましたら、ごめんなさい。
その場合は、どこがどのように違うのか、補足していただけると、他の方が回答しやすくなるかもしれませんね。
お力になれなくてすいません。

お礼

ご回答ありがとうございます。
MENUとMASTERは両方ともMAINの子にしたいと考えています。

MAINのLoadイベントに
Dim fMENU As New MENU
Dim fMASTER As New MASTER
fMENU.MdiParent = Me
fMASTER.MdiParent = Me
fMENU.Show()
fMASTER.Show()
と書いて実行した時のような状態を,MENUのボタンクリック時に行いたいと考えています。