18
Сентябрь
2009
Как воспроизвести определенный системный звук?
Как воспроизвести определенный системный звук?
Воспроизводим системный звук.
Код: Option Explicit
Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
Private Const MB_ICONASTERISK = &H40 ' Звук "звездочка"
Private Const MB_ICONEXCLAMATION = &H30 ' Звук "восклицание"
Private Const MB_ICONHAND = &H10 ' Звук "критическая ошибка"
Private Const MB_ICONQUESTION = &H20 ' Звук "вопрос"
Private Sub Form_Load()
Call MessageBeep(MB_ICONASTERISK)
End Sub