Afspil WAV fil

Hej zalkalin.

Jeg tvivler på du kan integrere en wav.fil men dette afspiller en lyd uden at anvende en  MCI-kontrol.  Den kan ligge i form.load, i en timer eller lign.

Dim wflags As Integer
Dim lyd as long

wflags% = snd_asyn And snd_nodefault
lyd = sndPlaySound(\"dinlyd.wav\", wflags%)
   
M.v.h.  Jørn

Nu siger den Sub or function not defined og peger på SndPlaySound.

Min kode er sådan: (har dimmet variablerne øverst)

Private Sub Command2_Click()

wflags% = snd_asyn And snd_nodefault
lyd = sndPlaySound(\"jeopardy.wav\", wflags%)
   

End Sub

Problemet løst.

http://support.microsoft.com/support/kb/articles/q86/2/81.asp

Fandt lige den her.

Joern du får lige en slat point også, for dit svar var en del af løsningen. Du havde bare lige glemt noget.

Hej Zalkalin.

Jeg tænkte godt at sndPlaySound-funktionen skulle erklæres, men i det af mine egne programmer jeg snuppede den fra, søgte sig den ikke ihærdigt nok.  Jeg fortjener næsten ikke point.

Men her er fra mit modul.bas (VB 3.0):

Declare Function sndPlaySound Lib \"mmsystem.dll\" (ByVal lydfilnavn$, ByVal wflags%) As Integer

Global Const SND_SYNC = &H0
Global Const SND_ASYN = &H1
Global Const snd_nodefault = &H2
Global Const SND_LOOP = &H8
Global Const SND_NOSTOP = &H10


I en form:
Dim wflags As Integer
Dim lyd as long
wflags% = snd_asyn And snd_nodefault
lyd = sndPlaySound(\"dinlyd.wav\", wflags%)
           
Noget lignende har du så fundet hos MS.
       
M.v.h.  Jørn