après la lecture d'un son wave, je voudrais récupérer événement qui me dit que le son est terminé. Est ce possible? Merci.
Peut être, ça dépend quel contrôle / outil / API ? tu utilises pour jouer le .wav ;-)
-- Cordialement,
Jacques.
Jacques93
Bonsoir Armando R, Armando R a écrit :
j'utilise l'API sndPlaySound
Avec l'API, je ne sais pas, dans l'immédiat peut être peux tu utiliser le contrôle Microsoft Multimédia Control (MCI32.OCX) qui génére un événement en fin de lecture, par exemple :
Private Sub Form_Load() With Me.MMControl1 .Visible = False .FileName = "C:Toto.wav" .Command = "Open" .Command = "Play" End With End Sub
Private Sub MMControl1_Done(NotifyCode As Integer) If NotifyCode = 1 Then ' mciSuccessful MsgBox "fichier Wav terminé" End If End Sub
Par defaut, la commande "Play" positionne les propriétés
Notify = True Wait = False
-- Cordialement,
Jacques.
Bonsoir Armando R,
Armando R a écrit :
j'utilise l'API sndPlaySound
Avec l'API, je ne sais pas, dans l'immédiat peut être peux tu utiliser
le contrôle Microsoft Multimédia Control (MCI32.OCX) qui génére un
événement en fin de lecture, par exemple :
Private Sub Form_Load()
With Me.MMControl1
.Visible = False
.FileName = "C:Toto.wav"
.Command = "Open"
.Command = "Play"
End With
End Sub
Private Sub MMControl1_Done(NotifyCode As Integer)
If NotifyCode = 1 Then ' mciSuccessful
MsgBox "fichier Wav terminé"
End If
End Sub
Par defaut, la commande "Play" positionne les propriétés
Avec l'API, je ne sais pas, dans l'immédiat peut être peux tu utiliser le contrôle Microsoft Multimédia Control (MCI32.OCX) qui génére un événement en fin de lecture, par exemple :
Private Sub Form_Load() With Me.MMControl1 .Visible = False .FileName = "C:Toto.wav" .Command = "Open" .Command = "Play" End With End Sub
Private Sub MMControl1_Done(NotifyCode As Integer) If NotifyCode = 1 Then ' mciSuccessful MsgBox "fichier Wav terminé" End If End Sub
Par defaut, la commande "Play" positionne les propriétés
