Получить имя пункта меню инструментальной панели в ящик сообщений

Question

У меня есть меню инструментов с записью «Общие». Когда форма загружается, подпункты добавляются в запись «Общие», которые являются результатом чтения имен файлов текстовых файлов в папке.

Я хочу, чтобы иметь возможность записывать имена вспомогательных элементов и добавлять их к метке в общей форме, которая вызывается нажатием на элемент.

Я попытался с помощью MsgBox(DirectCast(sender, ToolStripMenuItem).Text) в попытке захватить текст на начальном этапе, однако, он просто дает мне пункт меню «Общие» в MessageBox

В настоящее время я использую этот код в DropDownItemClicked случае

Любые идеи?

Answer 1

Элементы подменю находятся в коллекции ToolStripMenuItem.DropDownItems. Вы можете просмотреть коллекцию и выбрать ToolStripMenuItems. Не каждый элемент в меню - это ToolStripMenuItem (есть разделители, кнопки и т. Д.), Поэтому вы можете переключаться с помощью ToolStripItem.

Этот пример помещает все элементы подменю в окне сообщения:

Private Sub mnuDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDraw.Click 

Dim s As String = "" 
For Each item As ToolStripItem In sender.DropDownItems 
    If TypeOf (item) Is ToolStripMenuItem Then s &= item.Text & vbCrLf 
    Next item 
MsgBox(s) 

End Sub