Modul1


Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Global Const SND_ASYNC = &H1
Global Const SND_NODEFAULT = &H2

Form1


Public PlaySound(sWave as string)
if sWave <> "" then
SoundName$ = (sWave)
wFlags% = SND_ASYNC Or SND_NODEFAULT
X% = sndPlaySound(SoundName$, wFlags%)
end if
End Sub

Den här koden ska funka (gör säkert det) men vart skriver jag in sökvägen t.ex c:\ljud.wav

MVH Jesper

Hej

sndPlaySound "C:\Windows\Media\Tada.wav", 1

Dvs du skall skicka "c:\ljud.wav" till din Sub sWave som String

Call PlaySound("c:\ljud.wav")

Public PlaySound(ByVal sWave As String)

Obs ha för vana att skriva ByVal (det funkar även utan just nu)

kommer att vara standard i framtiden .net

mvh
Sven