遍历菜单项时,如何获取菜单项的名字。
其他的控件一般都有Name属性,怎么菜单就没有呢?
是想实现程序的多语言功能碰到的,用户希望可以在系统运行的时候可以改变使用的语言,就要遍历所有控件,并从资源文件中取出正确的语言文字,其他空间都可以,就菜单没有Name属性,不知道怎么办?
以下是部分代码:
Private Sub ChangeMNULanguage(ByVal L As Language, ByVal MNU As Object, ByVal RM As Resources.ResourceManager)
Dim M As MenuItem, str As String
For Each M In mmuMain.MenuItems
str = RM.GetString(CType(M, Menu).ToString & ".Text")
If str <> "" Then M.Text = str
If M.MenuItems.Count <> 0 Then ChangeMNULanguage(L, M, RM)
Next
End Sub
问题就在 CType(M, Menu).ToString 上面,我在资源文件里看了,使用的菜单名 + ".Text"记录的,可怎样把纪录的内容取出来呢?