从菜单条中单击的子菜单项提取文本

Question

我一直在处理并寻找一种方法，可以在单击时提取任何给定子项的文本，并将文本写入textbox1中。

这是我迄今为止的代码，但它似乎不起作用。

Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
    Dim result As String
    If AccionAToolStripMenuItem.Checked = True Then
        result = AccionAToolStripMenuItem.Text
        TextBox1.Text = result
    End If
End Sub

Answer 1

您使用了错误的事件。ItemClicked事件适用于菜单上的项目。您需要为每个子项添加一个事件：

Sub SomeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SomeTSMenuItem.Click
    TextBox1.Text = Ctype(sender, ToolStripMenuItem).Text
End Sub

您可以为每个子项创建一个函数，也可以在同一函数上处理每个事件：

Handles item1.Click, item2.Click, item3.CLick

Answer 2

尝试读取e.ClickedItem.Text。