lyd

bedre formulering ønskes :) er ikke helt med...

Indsætter et media komponent...

hvis jeg har et vb program hvor der frem kommer en msgbox så ville jeg gerne have programmet til at afspille en bestemt lyd fil

Private Declare Function sndPlaySound Lib \"winmm\" Alias \"sndPlaySoundA\" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0        \'  play synchronously (default)
Const SND_ASYNC = &H1        \'  play asynchronously

Function PlaySound(SoundFile As String)
  sndPlaySound SoundFile, SND_ASYNC
End Function

Private Sub Command1_Click()
  PlaySound \"C:\\Test.wav\"
End Sub