Two Extension Methods For DevExpress.XtraBars.PopupMenu

With working runtime created popupmenu i need these extension methods...

Find ItemLink By Name :

Usage : MyPopupMenu.FindItemLinkByName("MyBarItem")

<System.Runtime.CompilerServices.Extension()> _ Public Function FindItemLinkByName(ByVal pmnu As DevExpress.XtraBars.PopupMenu _ , ByVal BarItemName As String) As DevExpress.XtraBars.BarItemLink Return CType((From filtered As DevExpress.XtraBars.BarItemLink In pmnu.ItemLinks _ Where filtered.Item.Name = BarItemName _ Select GetBarITem = If(CType(filtered, DevExpress.XtraBars.BarItemLink) _ , Nothing)).FirstOrDefault, DevExpress.XtraBars.BarItemLink)

 

 

 Find BarItem By Name :

Usage :  MyPopupMenu.FindBarItemByName(“MyBarItem”)

<System.Runtime.CompilerServices.Extension()> _ Public Function FindBarItemByName(ByVal pmnu As DevExpress.XtraBars.PopupMenu _ , ByVal BarItemName As String) As DevExpress.XtraBars.BarItem Return CType((From filtered As DevExpress.XtraBars.LinkPersistInfo _ In pmnu.LinksPersistInfo Where filtered.Item.Name = BarItemName _ Select GetBarITem = If(CType(filtered.Item, DevExpress.XtraBars.BarItem) _ , Nothing)).FirstOrDefault, DevExpress.XtraBars.BarItem)

It can write for BarEditItem too…