Функция MessageBeep

Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long

MessageBeep воспроизводит один из системных звуков. Системные звуки можно определить при помощи Панели Управления(Апплет Звук). Также, функция может воспроизводить звук встроенного динамика компьютера.

wType

Если установлен в -1 (или &HFFFFFFFF), воспроизводит звук с помощью внутреннего динамика компьютера. В других случаях воспроизводится звук в соответствии с флагом:

MB_ICONASTERISK = &H40

Звук Звездочка

MB_ICONEXCLAMATION = &H30

Звук Восклицание

MB_ICONHAND = &H10

Звук Критическая ошибка

MB_ICONQUESTION = &H20

Звук Вопрос

MB_OK = &H0

Стандартный звук

Пример

' Воспроизводим системный звук Вопрос
' возвращаемое значение
Dim retval As Long

retval = MessageBeep(MB_ICONQUESTION)

Смотри также

Beep

Категория