🚀 go-pugleaf

> Ho utilizzato la funzione PlaySound:
>
> (Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
> (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long)
As
> Long)
>
> tutto ok, solo che vorrei che il mio programma continuasse con
l'istruzione
> successiva solo dopo che il file .wav e' stato eseguito completamente.
>

La soluzione � far eseguire la musica in modo sincrono  impostando le flag
attese tramite il parametro dwFlags :


Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8
Private Const SND_MEMORY = &H4
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_PURGE = &H40
Private Const SND_RESOURCE = &H40004
Private Const SND_SYNC = &H0


Public Enum EnumPlayModeConstant
    AsyncExecute = SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
    WaitForSong = SND_SYNC Or SND_NODEFAULT Or SND_MEMORY
    AsyncLoop = SND_ASYNC Or SND_LOOP Or SND_NODEFAULT Or SND_MEMORY
End Enum

   significano:

    esecuzione asincrona: continua ad eseguire il codice immediatamente dopo
aver avviatol'esecuzione
    Esecuzione asincrona: Termina l' esecuzione prima di passare all'
istruzione successiva
    Loop Asincrono: esegue  il brano all' infinito ma continua l' esecuzione
del codice

Ciao