Tipp 4.5 - Systemklang

Wie kann ich einen Systemklang durchführen?

Mit dieser Funktion können Sie ich einen Systemklang durchführen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: MessageBeep

Beispiel:

Option Explicit
 
Public Enum MB_ICONFLAGS
  MB_ICONHAND = &H10&
  MB_ICONQUESTION = &H20&
  MB_ICONEXCLAMATION = &H30&
  MB_ICONASTERISK = &H40&
  MB_ICONMASK = &HF0&
End Enum
 
Public Declare Function MessageBeep Lib "user32.dll" _
    (ByVal wType As Long) As Long
 
Public Sub PlaySystemAlertSound(lType As MB_ICONFLAGS)
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Select Case lType
  Case MB_ICONHAND
  Case MB_ICONQUESTION
  Case MB_ICONEXCLAMATION
  Case MB_ICONASTERISK
  Case MB_ICONMASK
  Case Else: Exit Sub
  End Select
  MessageBeep lType
End Sub


Zurück Tipp 4.4 - Sichtbarkeit der Taskbar | Inhalt | Tipp 4.6 - Aktuellen Benutzer abmelden Weiter