我怎么碰不到这样的问题呢? 在vb中我是这么使用的Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) MsgBox("Save") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim TheMenu As New MenuStrip Dim Tmp As ToolStripMenuItem = TheMenu.Items.Add("&File") Tmp = Tmp.DropDownItems.Add("&Save") Tmp.ShortcutKeys = Keys.Control Or Keys.S AddHandler Tmp.Click, AddressOf Me.SaveToolStripMenuItem_Click Me.Controls.Add(TheMenu) End Sub
你可以设置shortcutkeys属性,这样你就可以有很多种快捷键的方法
在vb中我是这么使用的Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("Save")
End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim TheMenu As New MenuStrip
Dim Tmp As ToolStripMenuItem = TheMenu.Items.Add("&File")
Tmp = Tmp.DropDownItems.Add("&Save")
Tmp.ShortcutKeys = Keys.Control Or Keys.S
AddHandler Tmp.Click, AddressOf Me.SaveToolStripMenuItem_Click
Me.Controls.Add(TheMenu)
End Sub