查看單個文章
舊 2006-01-10, 07:59 PM   #11 (permalink)
mini
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時
註冊日期: 2002-12-07
文章: 13490
精華: 0
現金: 26853 金幣
資產: 3024783 金幣
預設

引用:
作者: 劍痞憶秋年
劣者收到!版主您真的是太強了,佩服佩服!!

您提到的那個問題(直接 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 是否有 反事件 方法可用呢...哈)
mini 目前離線  
送花文章: 2054, 收花文章: 8068 篇, 收花: 26921 次
回覆時引用此帖