Discussion :

[Hamadokh]

Bonjour,

Voilà un bout de temps que je bute sur quelque chose, je m'explique:
Je fais jouer un son wav dans l'evenement form_timer d'un formulaire dont le TimerInterval a été fixé à 2000 millisecondes. Mon souhait est que le son wav se joue une seule fois dans cette périodicité, c'est-à-dire une fois chaque 2 secondes, mais à ma grande surprise, le son est exécuté 3 à 4 fois dans cette périodicité. Comment faire alors en sorte que le son wav ne se joue qu'une seule fois dans cette périodicité???.

D'avance merci

[nirG95]

Bonjour,

Dans un module tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Public Sub JouerMusique(ByVal Fichier As String)
    mciExecute ("play " & Fichier)
End Sub
 
Private Sub ArreterMusique(ByVal Fichier As String)
    mciExecute ("stop " & Fichier)
End Sub

Sur ton formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
    Me.TimerInterval = 2000
End Sub
 
Private Sub Form_Timer()
    JouerMusique ("monson.wav")
End Sub

Cordialement