Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment faire taire en cours API sndSoundPlay ???

2 réponses
Avatar
LE TROLL
Bonjour,

Comment arrêter la lecture en cours de l'API
sndSoundPlay, lisant un fichier wav, par exemple
???

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------

2 réponses

Avatar
Jacques93
Bonjour LE TROLL,
LE TROLL a écrit :
Bonjour,

Comment arrêter la lecture en cours de l'API
sndSoundPlay, lisant un fichier wav, par exemple
???




avec sndSoundPlay, je ne sais pas ;-) , mais avec sndPlaySound, par
exemple :

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4

Private Sub Command1_Click()
' Play
sndPlaySound "C:WINDOWSMediaWindows XP Démarrage.wav", SND_ASYNC
End Sub

Private Sub Command2_Click()
' Stop
sndPlaySound 0&, SND_MEMORY
End Sub


--
Cordialement,

Jacques.
Avatar
LE TROLL
Bonjour Jacques, merci, oui, c'est la
bonne API, je me suis trompé :o)

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Jacques93" a écrit dans le
message de news:

| Bonjour LE TROLL,
| LE TROLL a écrit :
| > Bonjour,
| >
| > Comment arrêter la lecture en cours de
l'API
| > sndSoundPlay, lisant un fichier wav, par
exemple
| > ???
| >
|
| avec sndSoundPlay, je ne sais pas ;-) , mais
avec sndPlaySound, par
| exemple :
|
| Private Declare Function sndPlaySound Lib
"winmm.dll" Alias _
| "sndPlaySoundA" (ByVal lpszSoundName As
String, _
| ByVal uFlags As Long) As Long
|
| Private Const SND_ASYNC = &H1
| Private Const SND_MEMORY = &H4
|
| Private Sub Command1_Click()
| ' Play
| sndPlaySound "C:WINDOWSMediaWindows XP
Démarrage.wav", SND_ASYNC
| End Sub
|
| Private Sub Command2_Click()
| ' Stop
| sndPlaySound 0&, SND_MEMORY
| End Sub
|
|
| --
| Cordialement,
|
| Jacques.