In der Windows-Systemsteuerung lassen sich für viele vordefinierten Programmereignisse bestimmte Sounddateien festlegen, die dann automatisch von Windows abgespielt werden, sobald diese Ereignisse eintreten (z.B. Windows-Start, Windows-Ende, Frage-MessageBox, Hinweis, usw.) Diese zugeordneten Sounddateien lassen sich auch gezielt in Ihrem Visual Basic Projekt abspielen. Hierzu müssen Sie lediglich die Windows-API Funktion PlaySound mit den entsprechenden String-Konstanten aufrufen: ' Benötigte API-Funktion zum Abspielen des Sounds Private Declare Function PlaySound Lib "winmm.dll" _ Alias "PlaySoundA" ( _ ByVal lpszName As String, _ ByVal hModule As Long, _ ByVal dwFlags As Long) As Long ' Verfügbare Programmereignisse ' Kostanten für PlaySound API-Funktion Public Enum SystemSound ssFrage ssHinweis ssKritischerAbbruch ssMaximieren ssMenuebefehl ssMenuePopUp ssMinimieren ssNeueMail ssProgrammOeffnen ssProgrammSchliessen ssProgrammfehler ssStern ssVergroessern ssVerkleinern ssWindowsBeenden ssWindowsStarten End Enum Prozedur, welche für das Abspielen zuständig ist ' Windows-Systemklänge abspielen Public Sub PlayWinSound(ssEvent As SystemSound) ReDim ssCmd(15) As String ssCmd(0) = "SystemQuestion" ' Frage ssCmd(1) = "SystemExclamation" ' Hinweis ssCmd(2) = "SystemHand" ' Kritischer Abbruch ssCmd(3) = "Maximize" ' Maximieren ssCmd(4) = "MenuCommand" ' Menübefehl ssCmd(5) = "MenuPopUp" ' Menü-PopUp ssCmd(6) = "Minimize" ' Minimieren ssCmd(7) = "MailBeep" ' Neue Mail ssCmd(8) = "Open" ' Programm öffnen ssCmd(9) = "Close" ' Programm schliessen ssCmd(10) = "AppGPFault" ' Programmfehler ssCmd(11) = "SystemAsterix" ' Stern ssCmd(12) = "RestoreUp" ' Vergrößern ssCmd(13) = "RestoreDown" ' Verkleinern ssCmd(14) = "SystemExit" ' Windows beenden ssCmd(15) = "SystemStart" ' Windows starten ' Konstanten für PlaySound dwFlags Const SND_ALIAS = &H10000 Const SND_ASYNC = &H1 Const SND_NODEFAULT = &H2 If ssEvent >= 0 And ssEvent <= UBound(ssCmd) Then PlaySound ssCmd(ssEvent), 0&, SND_ALIAS Or _ SND_ASYNC Or SND_NODEFAULT End If End Sub Aufruf der Prozedur ' Systemklang für "Neue Nachrichten" abspielen
PlayWinSound ssNeueMail Dieser Tipp wurde bereits 21.610 mal aufgerufen.
Anzeige
![]() ![]() ![]() (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 ![]() ![]() Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats ![]() Dieter Otter Nz - Funktion nachgebaut Eine kleine aber feine Funktion, um Null-Werte und daraus resultierende Fehler abzufangen. Neu! sevCommand 4.0 ![]() Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. |
||||||||||||||||
Microsoft, Windows 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. |