идентифицировать щелчок мыши и сочетание клавиш по элементу меню

Question

Я нахожусь на vb.net 2010. В моем приложении winforms у меня есть обработчик события clickItem, который может быть вызван щелчком мыши или сочетаниями клавиш. Как я говорю в моем обработчике был вызван из мыши против ярлыка клавиатуры ключа

Private Sub myToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles myMenuItemClick 
    Dim MouseClicked As Boolean 
    MouseClicked = ?? how to make the distinction how handler was called ?? 
    If MouseClicked Then 
     lblClicked.Text = "Mouse Click" 
    Else 
     lblClicked.Text = "Key board shortcut" 
    End If 
End Sub 

Answer 1

Вы можете обрабатывать ProcessCmdKey формы и проверьте ярлык, и если ярлык был нажат, возвращает истину. Таким образом, клик будет подкрепляться кликом не по ярлыку:

Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) _ 
    Handles NewToolStripMenuItem.Click 

    MessageBox.Show("Click") 
End Sub 

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, keyData As Keys) _ 
    As Boolean 

    If (Me.NewToolStripMenuItem.ShortcutKeys = keyData) Then 
     MessageBox.Show("ShortCut") 
     Return True 
    End If 
    Return MyBase.ProcessCmdKey(msg, keyData) 
End Function