Code-Beispiel

Windows Sounds für uns zweckentfremden

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Eternal_Pain	13.06.2007

Quelle:fb@rchive
Autor:Benjamin Kunz

In den weiten der API länder habe ich mal wieder eine nette neue Function gefunden,
die es uns ermöglicht die Sounds von Windows für unsere Zwecke zu verwenden.

Declare Function PlaySound Lib "winmm.dll" _

  Alias "PlaySoundA" (ByVal lpszName As String, _

  ByVal hModule As Long, ByVal dwFlags As Long) As Long



Enum aSound

  Frage

  Hinweis

  KritischerAbbruch

  Maximieren

  Menuebefehl

  MenuePopUp

  Minimieren

  NeueMail

  ProgrammOeffnen

  ProgrammSchliessen

  Programmfehler

  Stern

  Vergroessern

  Verkleinern

  WindowsBeenden

  WindowsStarten

End Enum



Const SND_A = &H10000

Const SND_B = &H1

Const SND_C = &H2



Sub PWinSound(aEvent As aSound)

  ReDim Cmd(15) As String



  Cmd(0) = "SystemQuestion"

  Cmd(1) = "SystemExclamation"

  Cmd(2) = "SystemHand"

  Cmd(3) = "Maximize"

  Cmd(4) = "MenuCommand"

  Cmd(5) = "MenuPopUp"

  Cmd(6) = "Minimize"

  Cmd(7) = "MailBeep"

  Cmd(8) = "Open"

  Cmd(9) = "Close"

  Cmd(10) = "AppGPFault"

  Cmd(11) = "SystemAsterix"

  Cmd(12) = "RestoreUp"

  Cmd(13) = "RestoreDown"

  Cmd(14) = "SystemExit"

  Cmd(15) = "SystemStart"

  If aEvent >= 0 And aEvent <= UBound(Cmd) Then

    PlaySound Cmd(aEvent), 0&, SND_A Or _

      SND_B Or SND_C

  End If

End Sub



PWinSound WindowsStarten

Sleep

PWinSound WindowsBeenden

sleep

end

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 13.06.2007 von Eternal_Pain angelegt.
Die aktuellste Version wurde am 13.06.2007 von Eternal_Pain gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.