MMControl1.DeviceType = "WaveAudio"
MMControl1.Wait = True
MMControl1.Command = "Open"
MMControl1.Wait = True
MMControl1.Command = "play"
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
End Sub
Private Sub Command1_Click()
MMControl1.filename = "D:\abcdef\modeles\actes-ec\timpo.wav"
MMControl1.Command = "Open"
End Sub
Private Sub Command2_Click()
MMControl1.filename = "D:\abcdef\modeles\acte-not\entreenot.wav"
MMControl1.Command = "Open"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "close"
End Sub
Private Sub MMControl1_StopClick(Cancel As Integer)
MMControl1.Command = "close"
End Sub
Private Sub Command3_Click()
WindowsMediaPlayer1.URL = "D:\\abcdef\modeles\actes-ec\timpo.wav"
End Sub
Private Sub Command4_Click()
WindowsMediaPlayer1.URL = "D:\\abcdef\modeles\actes-ec\temp.wav"
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command1_Click()
MMControl1.Command = "stop"
MMControl1.Command = "close"
MMControl1.filename = "D:\abcdef\modeles\actes-ec\pastype.wav"
MMControl1.Command = "Open"
End Sub