弹出式菜单(加上子菜单)求教高手相助，谢谢！！！

Question

求助高手帮助把附件里的代码修改一下，改为能在任意一级菜单上加上子菜单，谢谢！！！
http://www.vbgood.com/viewthread.php?tid=90543&extra=
http://www.vbgood.com/attachment.php?aid=32299&k=098c211d0c32796f9666cbb50487111e&t=1263981249&sid=3245mRAL%2F0gH2USugE6Xs4d8liGiVHOOlsXidrEl1Woe%2B4E

Answer 1

TO Chen8013:
谢谢你，我发到你邮箱好吗，谢谢！！！我的邮箱为[email protected]

Answer 2

居然无法获取添加的菜单项的句柄，郁闷中…………
昨天下班后就给你看过了，没想通。查了一下我以前的一个工程，也是用这种方法取得子菜单句柄的，运行正常。
可是在你的这个工程中，得到的句柄总是 0 :
Private Sub Command1_Click()
    Dim lTemp&, i&
'    lTemp = GetMenuItemCount(hMenu)
    lTemp = GetMenuItemCount(menu.hwnd)
    For i = 1 To lTemp - 1
'        Debug.Print i, GetSubMenu(hMenu, i)
        Debug.Print i, GetSubMenu(menu.hwnd, i)
    Next
End Sub
我把你的源码打包上传了，看别的大虾能否帮你解决。进入这个网页下载：menu.rar (15K)
上面的链接不能正常进入的，【点这里】，进入后再点 menu 。

Answer 3

谢谢！！！！Chen8013谢谢！！！！

Answer 4

刚才给你 Email 了个修改过的代码，可以实现‘多级’，只是菜单只能是标准风格的……