PDA

Visualizza la versione completa : [vb] .wav --> LOOP INFINITO


Johnny_Depp
17-09-2002, 09:15
Salve ragazzi, ho cercato nel motore ma non ho trovato quello che cercavo,

Sto cercando di creare un giochino "platform" tipo Pitfall II...

Ho inserito una colonna sonora (.wav) di background che parte al caricarsi del gioco (in pratica al caricarsi del Form_Load())
e non so come devo settare il seguente comando
per ottenere un LOOP INFINITO della colonna sonora.

R = sndPlaySound("c:\documenti\giocoVB\wave\sound.wav", 1)

Qualcuno di voi in grado di aiutarmi???

Johnny_Depp
17-09-2002, 09:47
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

Loading