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