Public Class Form1 Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress If e.KeyChar = Chr(179) Then AxWindowsMediaPlayer.ctlcontrol.next() Me.Text = "Touche multimédia compatible !" End If End Sub End Class
Public Class Form1 Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.MediaPlayPause Then 'Instruction ici End If End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question