１．ビープ音を鳴らす

１．ビープ音を鳴らす ２．Win32 API でビープ音を使って音階を鳴らす ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：　　　　　　　　　　　　　　　　　　参照設定方法参照 使用 API：Beep その他　：このサンプルは、Win32 API を使用しておりますので、ある程度 Win32 API が理解できる方がお使い下さい。 　　　　：

１．ビープ音を鳴らす

Private Sub Command1_Click() 　　Beep End Sub

２．Win32 API でビープ音を使って音階を鳴らす

Option Explicit Private Declare Function Beep Lib "kernel32" ( _ 　　ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Command1_Click() 'Win32 API でビープ音を使って音階を鳴らす 　　Call Beep(262, 300) 　　Call Beep(294, 300) 　　Call Beep(330, 300) 　　Call Beep(349, 300) 　　Call Beep(392, 300) 　　Call Beep(440, 300) 　　Call Beep(494, 300) 　　Call Beep(523, 300) End Sub

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)