Afspil lyd fra fil/windows standard

Hej det her skal ligge under generel
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2

Public Sub PlaySound(ByVal strPath As String)
  sndPlaySound strPath, SND_ASYNC Or SND_NODEFAULT
End Sub
-----------------------------------------------------
denne kode er til at lave lyd ved form lode
Private Sub Form_Load()
  Call PlaySound("C:\WINDOWS\MEDIA\Tada.wav")
End Sub
--------------------------------------------
denne kode er til at lave lyd ved klik på knap
Private Sub Command1_Click()
  Call PlaySound("C:\WINDOWS\MEDIA\Tada.wav")
End Sub


mvh HC

http://www.win-consult.com/Tips/LibrarySource.asp?App=Shared&Lib=PlayMP3

vis den ligger sammen med dit program er det bare
Private Sub Command1_Click()
  Call PlaySound("DINWAVNAVN.wav")
End Sub

Hvis den ligger sammen med mit program, er dette kode alt der skal bruges?

Private Sub Command1_Click()
  Call PlaySound("DINWAVNAVN.wav")
End Sub

??

Og hvis det er ens egen fil, kan man få den til at være en del af exe filen?

Det må jeg erkende at det ved jeg ikke, men du kan jo altid inkluderer den i en setup file på den måder er du sikker på den kommer i samme mappe som programmet

mvh HC

og om det er din wav eller dem der er i windows så skal alt det her med

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

Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2

Public Sub PlaySound(ByVal strPath As String)
  sndPlaySound strPath, SND_ASYNC Or SND_NODEFAULT
End Sub

Ok takker!

takk ;-)