主题：[求助]单击菜单组件函数问题

如何写一函数：

单击菜单上任意一组件，返回该组件的上一级，直至最顶级。如单击【打开】，返回：主菜单\功能区\功能组\...\...\打开。有可能是多级组合按钮。

谢

1.r的级数不确定哟，如何判断已返回到最高一级tab?

2.如何将Sender写入函数中？

3.单击的可能是功能区、程序菜单、快速访问栏、配置栏、上工具栏、下工具栏、快捷菜单中的某一组件，也可能是一窗口中的组件，如何判断所单击的组件属于哪一类？

谢谢了

Dim e As  Object = Args(0)  '''单击的菜单组件
Dim str As String = e.Sender.Name
''''
Dim a As  Object = e.Sender.Parent

Do While a Is Nothing
    a = a.Sender.Parent.Name
    str = str & "\" & a.Name
Loop

'''此函数想实现:单击菜单的某一组件,返回该组件的所有父级.,可快捷定位单击的组件.
但Parent报错误,请狐爸及各位老师指导,谢谢

或者，狐爸给每个组件一个唯一ID

你命名规范不就好了。各种控件，命名为对应的层级关系，如 功能区1_功能组2_某某控件

也有弊病，改动一处，就要全部改动。

最好有Parent属性。