[vb] .wav --> LOOP INFINITO

[Johnny_Depp]

posto il codice che permette di eseguire un .wav in INFINITO.

codice modulo:

Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_ASYNC = &H1
Public Const SND_LOOP = &H8

codice form all'interno di un sub:

dim R as long
R = sndPlaySound("C:\Documenti\giocoVB\Sound.wav", SND_ASYNC + SND_LOOP)

Ciao's