运行时的快捷键添加了ContextMenu.Item

Question

我需要动态地向ContextMenu添加一个Item 像这样：

context1.Items.Add("Reserved", Nothing, AddressOf Reserved_Click)

然后我希望我的“保留”项可以用快捷键（比方说）Ctrl + R来解雇，并且通过设计师定期添加ShortcutKey。

问题是：如何通过基于上面示例的代码将快捷方式（Ctrl + R）添加到“保留”项目？

Answer 1

您可以直接在ToolStripMenuItem上添加此内容。 ShortCut枚举可以方便地分配正确的组合快捷方式。

Dim tsItem As New ToolStripMenuItem("Reserved", Nothing, AddressOf Reserved_Click)
tsItem.ShortcutKeys = DirectCast(Shortcut.CtrlR, Keys)
tsItem.ShortcutKeyDisplayString = "CTRL + R"

context1.Items.Add(tsItem)

或者，这也适用：

tsItem.ShortcutKeys = Keys.Control Or Keys.R