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

如何写一函数：

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

谢

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

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

最好有Parent属性。

没明白，老师

如何给a赋Tag值，又如何获取它的Tag值？

多谢

Dim r As object = BaseMainForm.controls("C1Ribbon1")

For Each tab As RibbonMenu.Tab In RibbonTabs
    '  tab.tag = "\" &  tab.Name
    '  Output.Show(tab.Name)
    For Each grp As RibbonMenu.Group In RibbonTabs(tab.Name).Groups
        ' grp.tag = "\" &  tab.Name & "\" & grp.Name
        '   Output.Show("  " & grp.Name)
        For Each itm As RibbonMenu.RibbonItem In RibbonTabs(tab.Name).Groups(grp.Name).Items
            '  Output.Show("    " & itm.Name)
             ' itm.tag = "\" &  tab.Name & "\" & grp.Name & "\" & itm.Name
            Dim a  = r.Tabs(tab.Name).Groups(grp.Name).Items(itm.Name)
            a.tag = "程序菜单\" &  tab.Name & "\" & grp.Name & "\" & itm.Name
            MessageBox.Show(a.tag)
        Next
    Next
Next

以上可以赋值tag,　问题是如何读取当前所单击组件的tag???

网上找的资料

C#~如何获得选中的菜单项的Tag值。
C#~如何获得选中的菜单项的Tag值。


------解决方案--------------------

C# code

private void toolStripMenuItem4_Click(object sender, EventArgs e)
{
    ToolStripMenuItem item = sender as ToolStripMenuItem;
    if(item.Tag != null)
    {
        Console.WriteLine(item.Tag);
    }
}

------解决方案--------------------
ItemClicked事件ItemClicked(object sender, ToolStripItemClickedEventArgs e)