VB中的MDIForm的問題

[mini]

想模擬寫出您的程式
但真慚愧 沒什麼MDIForm經驗...

如可以的話貼出完整的程式碼
大家一起來看看有何好方式

[劍痞憶秋年]

作者: mini

想模擬寫出您的程式
但真慚愧 沒什麼MDIForm經驗...

如可以的話貼出完整的程式碼
大家一起來看看有何好方式

唉呀呀，不要這麼說囉，版主客氣了！！有勞 版主 及 各位高手幫忙了！！

劣者現在剩下這個問題，而第二個問題就依 mini 版主所回答的命名方式處理！！
＜１＞不知道為什麼在有 PopMenu 的 MDIChild 表單一出現...
MDIForm上的Menu就會不見！！有沒有可能讓兩者並存！！
(拍寫之前寫錯了，
把”有 PopMenu 的 MDIChild 表單”(正確)
寫成 ”MDIChild 的 PopMenu ”(錯誤)

劣者把它分成四篇把完整程式碼貼出(其實也不是真正的，是 Sample 而己，真正的程式碼太多了，太亂了！)

<1> MDIForm

第2 ∼ 4篇則是 MDIChild Form
<2>Form1 ==> 沒有內含 功能表(PopupMenu) ==> 執行結果正常
<3>Form2 ==> 有 內含 功能表(PopupMenu) ==> 執行結果異常
<4>Form3 ==> 有 內含 功能表(PopupMenu) ==> 執行結果異常

<2>
只對屬性做了二個設定
MdiFormChild = True
WindowState = 2

<3><4>都同 <2> ，只是比 <2>多了 功能表
(<3>，<4>的功能表 有點小差異，差異則是如下)

Form2

快選功能表
...刪除
......刪除單筆
......刪除全部

Form3

刪除
...刪除單筆
...刪除全部


<<MDIForm.frm>>

VERSION 5.00
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "MDIForm1"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 735
ClientWidth = 4680
LinkTopic = "MDIForm1"
StartUpPosition = 3 '系統預設值
WindowState = 2 '最大化
Begin VB.Menu mnu_X_1
Caption = "[ 權限管理 ]"
Begin VB.Menu mnu_1_1
Caption = "沒有Popupmenu"
End
Begin VB.Menu mnu_1_2
Caption = "Popupmenu1"
End
Begin VB.Menu mnu_1_3
Caption = "Popupmenu2"
End
Begin VB.Menu mnu_Project_Manage_UserDataCreate
Caption = "使用者 基本資料建立"
Visible = 0 'False
End
Begin VB.Menu mnu_Project_Manage_GroupDataCreate
Caption = "群組 基本資料建立"
Visible = 0 'False
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub mnu_1_1_Click()
Form1.Show
End Sub

Private Sub mnu_1_2_Click()
Form2.Show
End Sub

Private Sub mnu_1_3_Click()
Form3.Show
End Sub