Přehrávání systémových zvuků

Postup:
 V modulu deklarujte následující API funkci:

Declare Function MessageBeep Lib "user32" Alias "BeepA" (ByVal wType As Long) As Long
* celá deklarace musí být na samostatné řádce

Funkce MessageBeep má parametr wType v následujících hodnotách:

-1 Standartní pípnutí reproduktoru.
MB_ICONASTERISK  Zvuk specifikovaný klíčem SystemAsterisk.
MB_ICONEXCLAMATION Zvuk specifikovaný klíčem SystemExclamation.
MB_ICONHAND Zvuk specifikovaný klíčem SystemHandentry.
MB_ICONQUESTION Zvuk specifikovaný klíčem SystemQuestion.
MB_OK Zvuk specifikovaný klíčem SystemDefault

Konstanty parametru wType mají stejnou hodnotu, jako ve Visual Basicu parametry funkce MsgBox.

Příklad:

MessageBeep vbExclamation
MsgBox "WOW!!!",vbExclamation

Zpět

Autor: The Bozena