title image


Smiley Beispiel für Aufruf DLL-Funktion "PlaySound"
Hallo Günther,



villeicht hilft Dir folgendes kleine Beispiel zum Abspielen einer SOUND-Datei per VBA weiter, das habe ich irgendwann mal in den Tiefen des WWW aufgegabelt :



Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _

(ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long



Const SND_ASYNC As Long = &H1

Const SND_FILENAME As Long = &H20000

Const SND_PURGE As Long = &H40

Const SND_LOOP As Long = &H8



Sub SoundAbspielen()

Call PlaySound("C:\Windows\media\tada.wav", 0, SND_FILENAME Or SND_ASYNC)

'Sound mit Wiederholung abspielen :

'Call PlaySound("C:\Windows\media\tada.wav", 0, SND_FILENAME Or SND_ASYNC Or SND_LOOP)

End Sub



Sub SoundStoppen()

Call PlaySound("", 0, SND_PURGE)

End Sub


Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: