Siehe auch: | Töne erzeugen | 

Autor: Uwe Küstner  --- Aus Excel VBA - Gruppe: Verschiedenes

Systemklänge zuordnen

Autor: Uwe Küstner - Erstellt: --      - Letzte Revision: --
Meldungsfenster(MsgBoxen) kann man mit verschiedenen Meldungstypen versehen,
um die Bedeutung einer Meldung mit einem entsprechenden Symbol hervorzuheben.

In der Systemsteuerung von Windows lassen sich diesen hier so genannten
'Programmereignissen' Sounddateien zuordnen.
 
VB-Konstante Wert BeschreibungProgrammereignis
von MS Windows
VbCritical 16Meldung mit Stop-Symbol anzeigenKritischer Abbruch
VbQuestion 32Meldung mit Fragezeichen-Symbol anzeigenFrage
VbExclamation 48Meldung mit Ausrufezeichen-Symbol anzeigenHinweis
VbInformation 64Meldung mit Info-Symbol anzeigenStern
 
Hier eine Beispielprozedur:

Sub MsgBox_Spezial()
  MsgBox "Meldung vom Typ ""Kritisch""", vbCritical
  MsgBox "Meldung vom Typ ""Frage""", vbQuestion
  MsgBox "Meldung vom Typ ""Achtung""", vbExclamation
  MsgBox "Meldung vom Typ ""Info""", vbInformation
End Sub

Bis hierher mag Ihnen das alles schon bekannt gewesen sein.

Aber das jetzt vielleicht noch nicht:

Diese Klänge können Sie auch in eigenem Code, z.B. in einer Userform,
durch eine API-Zuweisung auf die "USER32.DLL" einsetzen.

Auch dazu ein Beispiel:

Option Explicit

Declare Sub MsgSound Lib "USER32" Alias "MessageBeep" (ByVal BeepType As Long)

Sub Test_MsgSound()
  MsgSound vbCritical     'oder 16 für Kritisch
  Application.Wait Now + TimeSerial(0, 0, 2) '2 Sekunden Pause
  MsgSound vbQuestion     'oder 32 für Frage
  Application.Wait Now + TimeSerial(0, 0, 2) '2 Sekunden Pause
  MsgSound vbExclamation  'oder 48 für Hinweis
  Application.Wait Now + TimeSerial(0, 0, 2) '2 Sekunden Pause
  MsgSound vbInformation  'oder 64 für Information
End Sub

Weitere Artikel der Gruppe: Verschiedenes Aus Excel VBA
Nach oben
rechte seite