VB中的MDIForm的問題

[劍痞憶秋年]

作者: mini

試了一下
http://d.turboupload.com/d/267905/MDIForm_test.rar.html

也就是將表單統一編輯在 MDIForm1 裡 (其他的Form2及Form3裡的選單請刪除)
並將底層屬性改成 "不顯示"
就可以
PopupMenu MDIForm1.xxx 'xxx是該 "不顯示"的選單底層名稱
方式在各 Form裡使用

是否有更好的方法，有空再看看google可否找到...

劣者收到！版主您真的是太強了，佩服佩服！！

您提到的那個問題(直接 Popup 第二階Menu)，小弟先前也有發現，後來好像用了個人試出來的偏方(

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
' ◎這裡不知道算不算是 VB 的 Bug
' 在其它地方，被引用過 子功能表(PopupMenu mnu_Order)，且被顯示過一次
' 這裡的 就會減少了 那個 子功能表 的顯示 (也就是 子功能表.Visible = False)
mnu_Order.Visible = True
mnu_Find.Visible = True
PopupMenu mnu_PopUp
End If
End Sub

)把它重新顯示處理

應該是小弟一開始的使用的方式就錯誤了，Trace 比較了好久才發現是 Popupmenu 造成的問題，但還是不知道原因，現在卻已經可以順利獲得解決，感謝 mini 版主！！

若還有好方式，還請版主 or 各位高手不吝賜教！　
劣者若是找到好方式，也會把它 回在此篇！！

[mini]

作者: 劍痞憶秋年

劣者收到！版主您真的是太強了，佩服佩服！！

您提到的那個問題(直接 Popup 第二階Menu)，小弟先前也有發現，後來好像用了個人試出來的偏方(

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
' ◎這裡不知道算不算是 VB 的 Bug
' 在其它地方，被引用過 子功能表(PopupMenu mnu_Order)，且被顯示過一次
' 這裡的 就會減少了 那個 子功能表 的顯示 (也就是 子功能表.Visible = False)
mnu_Order.Visible = True
mnu_Find.Visible = True
PopupMenu mnu_PopUp
End If
End Sub

)把它重新顯示處理

哦~
感謝
原來只要把第二層以後的子選單
都 .Visible = True 一次
就可解決了

個人除錯追蹤一上午都找不出方法呢 ? ^^||
(還心想有mnu_PopUp 是否有 反事件 方法可用呢...哈)