|
↓APIでやってみて下さい。結果は保証できませんが・・。
Declare Function BeepAPI Lib "kernel32.dll" Alias "Beep" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub Beep_API()
Dim i As Long
Const dwFreq As Long = 1000
Const dwDuration As Long = 500
For i = 1 To 3
Call BeepAPI(dwFreq, dwDuration)
Next
End Sub
あるいは
Declare Function MessageBeep Lib "user32.dll" (ByVal uType As Long) As Long
'-1 '標準のビープ音
Const MB_ICONASTERISK = &H40 'メッセージ(情報)
Const MB_ICONEXCLAMATION = &H30 'メッセージ(警告)
Const MB_ICONHAND = &H10 'システムエラー
Const MB_ICONQUESTION = &H20 'メッセージ(問い合わせ)
Const MB_OK = &H0 '一般の警告音
'↓引数に -1 を渡して Beep が鳴らない場合は、↑の定数から任意に選択して下さい
Sub MsgBeep_API()
Call MessageBeep(MB_ICONASTERISK)
End Sub
|
|