菜单隐藏问题！

fsybaby 2004-05-06 04:09:39

如何动态隐藏菜单？例如： frmMain.mPrjMain.Visable=false 但这样不好使
^
|
（这是菜单名）

或是让菜单不可用！

...全文

90 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

fsybaby 2004-05-06

打赏
举报

对不起，弄错了，原来我把每一项菜单都设上索引了

daisy8675 2004-05-06

打赏
举报

ei?偶就一直這麼寫的

不可以用就設置enable=false

meteorkin 2004-05-06

打赏
举报

你这样做还行啊
我以前都是这样做的

hackate 2004-05-06

打赏
举报

把他加到窗体的加载事件load里面可以的啊
比如你的菜单是 mmcaidan

那么
me.mmcaidan.viaable=false

这样就可以啊，我从来没失败过，呵呵

qyii 2004-05-06

打赏
举报

Private Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hMenu As Long) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

Private FormMenu As Long
FormMenu = GetMenu(Me.hwnd)

' 隐藏菜单
SetMenu hwnd, 0
' 显示菜单
SetMenu hwnd, FormMenu

haorjiang 2004-05-06