VB-Homepage Tipp 429

einfaches Abspielen von *.wav Dateien

Viel will und brauch ich nicht zu nachfolgendem Tipp schreiben, es ist eines von mehreren Möglichkeiten, eine *.wav Klangdatei abzuspielen. Der unkomplizierte Einsatz hebt diese Möglichkeit hervor. Allgemein/Deklarationen Private Declare Function apisndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long Allgemein/PlaySoundFile Public Sub PlaySoundFile(filename As String) On Error Resume Next                                                 'zur Sicherheit If Dir(filename) = "" Then    MsgBox "Datei existiert nicht" Else    apisndPlaySound filename, &H1 End If End Sub Aufruf - Command1/Click PlaySoundFile ("Laufwerk:\Pfad\Datei.wav")

Tipp-Download

Quelle : Oliver Dahl / ODahl@CompuServe.com