1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Private Sub TotoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TotoToolStripMenuItem.Click
MaFonction()
End Sub
Private Sub Form1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.Control = True And e.KeyCode = Keys.NumPad9 Then
MaFonction()
End If
End Sub
Private Sub ContextMenuStrip1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles ContextMenuStrip1.PreviewKeyDown
If e.Control = True And e.KeyCode = Keys.NumPad9 Then
MaFonction()
End If
End Sub |
Partager