Fast jedes Programm benutzt einige Soundeffekte und Signaltöne, um dem Benutzer die Bedienung etwas zu vereinfachen. Doch nicht immer will man die Standard-Signale von Windows verwenden. Oft sind eigene Sounds besser geeignet. Doch wie gibt man diese Dateien wieder? Genau das wird hier anhand einer API-Funktion gezeigt.

Ihre Bewertung:   1 2 3 4 5

Bewertung dieses Tipps:

(bewertet von insgesamt 49 Besuchern)

Um die API-Funktion "PlaySoundA" in eigenen Projekten nutzen zu können, muss sie zuerst im Kopf der Datei deklariert werden. Zusätzlich wird noch eine kleine Funktion benötigt, die das Abspielen etwas vereinfacht. Ich empfehle Ihnen, diese Funktion und die Deklarationen in einem Modul vorzunehmen, da die Funktion dann später im gesamten Projekt zur Verfügung steht. Neben der API-Funktion benötigen Sie noch drei Konstanten:

Private Declare Function API_PlaySound Lib "WINMM.DLL" Alias "PlaySoundA" (lpData As Any, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_SYNC = &H0      'Synchron abspielen
Private Const SND_ASYNC = &H1     'Unsynchron abspielen
Private Const SND_NODEFAULT = &H2 'Keine Pause, wenn Datei nicht gefunden wird
Private Const SND_MEMORY = &H4    'lpszSoundName verweist auf eine Speicherdatei
Private Const SND_LOOP = &H8      'Sound bis zum nächsten Abspielen immer wiederholen

Sub PlaySound(Filename As String, Optional LoopIt As Boolean = False)
   Dim Flags As Long

   Flags = SND_ASYNC & SND_NODEFAULT
   If LoopIt = True Then Flags = Flags & SND_LOOP
   API_PlaySound Filename, 0, Flags
End Sub