システムサウンドを鳴らす

● システムサウンドを鳴らす ●

何を隠そう、システムサウンドを鳴らすこの関数は、私が初めて出会ったAPI関数なのだ。いや、懐かしい。

一気にいくよ。簡単だから説明は要らないね。

'システムサウンドを鳴らす
Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long

Private Const MB_ICONHAND = &H10&            'システムエラー
Private Const MB_ICONQUESTION = &H20&      '問い合わせ
Private Const MB_ICONEXCLAMATION = &H30&  '警告
Private Const MB_ICONASTERISK = &H40&      '情報

'---------------------------------------------------------------------
' 関数名 ： CallVariousBeep
' 機  能 ： Beep音を鳴らす
' 引  数 ： (in) beepNum … ビープ音指定インデックス
' 戻り値 ： なし
'---------------------------------------------------------------------
Public Sub CallVariousBeep(ByVal beepNum As Long)

    Select Case beepNum
        Case 0 'システムエラー
            Call MessageBeep(MB_ICONHAND)
        Case 1 '問い合わせ
            Call MessageBeep(MB_ICONQUESTION)
        Case 2 '警告
            Call MessageBeep(MB_ICONEXCLAMATION)
        Case 3 '情報
            Call MessageBeep(MB_ICONASTERISK)
        Case 4 'コンピュータのスピーカーによる標準ビープ音
            Call MessageBeep(&HFFFFFFFF)
        Case Else
            Beep
    End Select

End Sub

戻る