السلام عليكم
كيف يمكنني جلب جميع اسماء القوائم VB.net 2003 على List ؟
ارجو مساعدتي في استرجاع جميع اسماء القوائم على MDI Form مع القوائم الفرعية.
مع العلم اني وضعة كود و حصلت على جميع القوائم بفروعها ولكن لم استطع و ضع الخاصية Name للحصول على اسمها و اليكم هذا Function
ولكم جزيل الشكر....
Private Sub RefMenu
Dim Mnu As MenuItem
'Dim Frm As New FrmMain
Dim CurNode As TreeNode
Dim Cntrl As Control
For Each Mnu In Me.ParentForm.Menu.MenuItems
MsgBox(Mnu.Name)
AddNodeChild( Mnu.MenuItems)
Next
End Sub
Private Sub AddNodeChild( ByVal MainMenu As Menu.MenuItemCollection)
Dim Mnu As MenuItem
'Dim Frm As New FrmMain
Dim CurNode As TreeNode
Dim MNUCaption As String
For Each Mnu In MainMenu
Msgbox(Mnu.Name)
AddNodeChild(CurNode, Mnu.MenuItems)
Next
End Sub
