Sound in Endlosschleife
15.09.2003 12:38:01
Erwin
Also nicht in einer Schleife der Art:
Do
DoEvents
Spiele Sounddatei...
Loop
Dazu habe ich folgendes probiert:
Private Declare _
Function API_PlaySound _
Lib "WINMM.DLL" Alias _
"PlaySoundA" (lpData As Any, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_MEMORY = &H4
Private Const SND_LOOP = &H8
Sub PlaySounddatei(Datei As String, Optional LoopIt As Boolean = False)
Dim Flags As Long
Flags = SND_ASYNC & SND_NODEFAULT
If LoopIt = True Then Flags = Flags & SND_LOOP
API_PlaySound Datei, 0, Flags
End Sub
'
Sub TestSound()
PlaySounddatei "c:\test.wav", True
End Sub
Ausgegeben wird hier lediglich das Standardsignal.
Erwin