VB.NET中关于菜单的问题

[松果工作室]

我想将MDI主窗体中的全部菜单的菜单名称（Name）和菜单标题（Text）存储到数据库表中去。为此，我写了一个过程，递归调用：
Private Sub ShowAllMenu(ByVal miMenuItem As MenuItem)
'怎么显示菜单的名称？
MessageBox.Show(miMenuItem.Text)
If miMenuItem.MenuItems.Count <> 0 Then
Dim miTest As MenuItem
For Each miTest In miMenuItem.MenuItems
ShowAllMenu(miTest)
Next
End If
End Sub

　　'//保存按钮的单击事件：
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim miMenuItem As MenuItem
For Each miMenuItem In Me.MainMenu1.MenuItems
ShowAllMenu(miMenuItem)
Next
End Sub

通过种方法，我可以显示全部菜单的标题（Text），可miMenuItem却没有Name属性。请问如何显示出菜单的名称？

[youwanna]

不知道，大不了自己写个继承的MenuItem，里面加个属性

帮兄弟顶下

[松果工作室]

继承？提供了一个思路。但添加个Name属性是容易，可这个属性代码里怎样写才能获取菜单的名称？

[youwanna]

你的菜单不是自动生成的，开始就可以直接写死
如果是自动生成的，根据如何生成，应该也可以来写吧

[龍过鸡年]

返回一个对象的所有属性:

using System.Reflection;

PropertyInfo[] infos = menuItem.GetType().GetProperties();
foreach(PropertyInfo info in infos)
{
Console.WriteLine(info.Name);
}

我建议你想别的办法,比如用动态属性 - DynamicProperties

[龍过鸡年]

哦~~ 写成 C# 的了 :p

Import System.Reflection;

PropertyInfo infos() = menuItem.GetType().GetProperties()

For Each PropertyInfo info In infos

Console.WriteLine (info.Name)

Next

[龍过鸡年]

不好意思~~~ 没给对!

Import System.Reflection;

Dim infoAry() As PropertyInfo = menuItem.GetType().GetProperties()
Dim info As PropertyInfo

For Each info In infoAry

Console.WriteLine (info.Name)

Next