Как отобразить выпадающий элемент TEXT из полосы меню

Question

Что я хочу достичь - извлечь текст пункта выбора и отобразить его в виде сообщения (для начала, тогда я собираюсь использовать его для SQL-запроса ...)

Я хочу, чтобы извлечь этот конкретный выбранный элемент, например: «SPR (Suivi часть повторно изменяет)» в следующем изображении:

Я попытался это, но когда я нажимаю на «меню », он возвращает название моей полосы меню« MenuStrip1 »:

Private Sub MenuStrip1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuStrip1.Click 
    MessageBox.Show(DirectCast(sender, MenuStrip).Name) 
End Sub 

EDIT:

Я забыл упомянуть, что все элементы добавляются динамически из базы данных, так что не будет никакого предопределенного Private Sub .... End Sub Процедура для этих предметов.

Заранее спасибо.

Answer 1

Объект MenuStrip относится только к самой полосе меню, а не к отдельным элементам меню, которые на самом деле являются объектами ToolStripMenuItem. Вы ищете свойство Text этих объектов. Например:

DirectCast(YourDynamicMenuItemObjectHere, ToolStripMenuItem).Text 

Если вы ищете способ, чтобы захватить события, вам необходимо создать общий обработчик событий:

Private Sub GenericMenuItem_Click(sender As System.Object, e As System.EventArgs) 
    MessageBox.Show(DirectCast(sender, ToolStripMenuItem).Text) 
    'Whatever else you need to do based on the text of the menu item 
End Sub 

А затем подключить этот обработчик к пунктам меню при каком они созданы:

'Code that creates YourDynamicallyGeneratedMenuItem 
AddHandler YourDynamicallyGeneratedMenuItem.Click, AddressOf GenericMenuItem_Click