引用:
|
作者: 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