Tipp 4.9 - WAVE-Datei abspielen

Wie kann ich eine WAVE-Datei abspielen?

Mit dieser Funktion können Sie eine WAVE-Datei abspielen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: sndPlaySound

Beispiel:

Option Explicit
 
Public Enum SND_PLAYFLAGS
  SND_SYNC = &H0
  SND_ASYNC = &H1
  SND_NODEFAULT = &H2
  SND_LOOP = &H8
  SND_NOSTOP = &H10
  SND_PRESETTING = SND_ASYNC Or SND_NODEFAULT
End Enum
 
Public Declare Function sndPlaySound _
    Lib "WINMM.DLL" Alias _
    "sndPlaySoundA" _
    (ByVal lpszSoundName As String, _
    ByVal uFlags As Long) As Long
 
Public Function PlayWaveFile( _
                sWaveFilepath As String, _
                Optional lSndFlag _
                As SND_PLAYFLAGS = SND_PRESETTING) _
                As Boolean
  '// -----------------------------------------------------
  '// Methode:   | Spielt eine WAVE-Datei ab.
  '// -----------------------------------------------------
  '// Parameter: | sWaveFilepath - Dateipfad zur WAVE-Datei
  '//            | lSndFlag - Abspieloptionen
  '// -----------------------------------------------------
  '// Rückgabe:  | Rückgabewert der API-Funktion
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  PlayWaveFile = sndPlaySound(sWaveFilepath, lSndFlag)
 
End Function


Zurück Tipp 4.8 - Verschiedene Shell-Funktionen | Inhalt | Tipp 4.10 - Systemvariable TEMP ändern Weiter