父菜单能否没有可视的子菜单项在线及等

[ssun1999]

方法？？？

[victorycyz]

当然可以。

你自己不会试一下么？

[rickytwice]

完全可以啊.
呵呵..例子又不好给,自己试试,别添加子菜单就是了.

[mmcgzs]

可以的。

[fuanwei]

可以，但是不能设置快截键(F2等)

[ryuginka]

应该可以的吧

[射天狼]

Option Explicit

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long

Private Sub Command1_Click()
Dim strMenu As MENUITEMINFO
Dim hwdMenu As Long, hwdSubMenu As Long

hwdMenu = GetMenu(hwnd)
hwdSubMenu = GetSubMenu(hwdMenu, 0)
MsgBox GetMenuItemCount(hwdSubMenu)
End Sub

[ssun1999]

我的问题是有一个a菜单下有两个aa,ab两个子菜单。
我想要aa和ab都不要显示只显示a菜单vb中会提示“父菜单不能没有可视的子菜单项“
在程序中设置aa.Visible = False
ab.Visible = False
会报错！！
楼上老大好像也有问题运行报错
是在不行我只能设
aa.Enabled = False
ab.Enabled = False
来解决但是我不想让用户看到菜单标题或是设一个帮助.visble=true
因为vb中只是要求至少显示一个子菜单！！！！！！！！！！

[BlueBeer]

真是搞不懂，你做了菜单不让人家看是什么意思？
是完全就不让看，还是只是某个条件没满足条不让看？
如果是前者，完全可以让aa,ab与a并列啊，同为代级菜单，这样就可以设为不可见了

[tangxiaosan001]

你想作弹出试菜单吧?要是的话就把那个可见不要,不过象你说的那个没试过.除非不要子菜单.