Thema: Wav-Datei abspielen und mit ESC abbrechen

Home

Gruppe

API

Problem

Wie kann ich eine WAV-Datei 10 mal hintereinander abspielen lassen und die Schleife mit der ESC-Taste unterbrechen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Declare Function sndPlaySound32 Lib "winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName _
    As String, ByVal uFlags As Long) As Long

Sub SoundStart()
   Dim iCounter As Integer
   Application.EnableCancelKey = xlErrorHandler
   On Error GoTo ERRORHANDLER
   For iCounter = 1 To 10
      Call sndPlaySound32(Range("A1").Value, 1)
      Application.Wait Now + TimeSerial(0, 0, 2)
   Next iCounter
ERRORHANDLER:
End Sub

Beiträge aus dem Excel-Forum zu den Themen API und Ton

Excel to Word Kapitel VBA	Anfangskapital berechnen
VBA E-Mail mit Button und Bedingungen	Zeilen mit Button verschieben, mit Einschränkungen
Gestapelte Säulen-Diagramm: Ich kapier's nicht	Googel Maps API in Excel VBA einfügen
Rechteck per Button in andere Datei einfügen.	Option Button Wert aus Tabelle (x)
OptionButton zur Auswahl	Button in UserForm soll CSV in neuer Instanz öffne
Userform Toggle Button rücksetzen	Alle Buttons ausblenden
Optionbutton zweimal klicken	Welcher Button wurde geklickt?
Button als gelesen markiert ??	WebBrowser und CommandButton
Button für Seite einrichten	Reiter in Multipage als Commandbutton
Userform - CommandButton per Code löschen	Wenn Eintrag in Zelle dann Ton
Button für Makro in Taskleiste	Button zum Ausdrucken
Info-Button in Excel-Tabelle einfügen	Hyperlink als Button
Button automatisch deaktivieren	Spinbutton in UF und Textbox
Button zum aktuellen Datum	CommandButton nicht mit ausdrucken
Mehrere Buttons über ToggleButton aufrufen	Command Button
Wenn Zelle grau dann UF CButton Enabled = False	Modul starten per CommandButton ?!
Toggle Button gleich nach Öffnung aktivieren	Druckbefehl hinter CommandButton festlegen?
Seitenumbrüche unter Druck-Command Button ...	Wenn Button vorhanden, dann
Commandbutton verschieben	Button klicken=>Aktion nach einer bestimmten Zeit
Button ein-/ausblenden bei bestimmten Bedingungen	Wurde Optionbutton in Frame gewählt?
ComboBox mit CommandButton verknüpfen	Ein Button - zwei funktionen
CommandButton Code zur laufzeit erstellen	Berechnung vom Endkapital
Buttons - Makros	Button drücken während Zelleingabe
Daten per button in tabelle2 schreiben	Button 1+,1-
Mit Button in Excel Prozess auslösen	Makro per Button Starten/Beenden