タイプ音を鳴らす

☆タイプ音を鳴らす。
■フォーム上には何も貼り付けずにフォームのコードを変更する。↓
’キーを押すと実行される
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
'変数retを宣言
   Dim ret As Long
   ret = sndPlaySound("c:\windows\media\Chimes.wav", 1)
End Sub


■プロジェクトエスクプローラ内で右クリックし「追加」-「標準モジュール」をクリックし開くを押す。
    

■Module1にコードを書き込む。↓
'APIのsndPlaySoundの標準モジュール(特に理解しなくて良い)
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


■プログラムを実行する。↓
(解説)フォーム上でキーを押すと音が鳴る
。音はc:\windows\media\Chimes.wavにある音。

☆押したキーによって音を分ける。
■フォームのコードを書き換える。
'キーを押すと実行される
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   '変数retを宣言
   Dim ret As Long
   
'もしAと入力したとき
   If "A" = Chr(KeyCode) Then
      ret = sndPlaySound("c:\se1.wav", 1)
   'A以外を入力したとき
   Else
      ret = sndPlaySound("c:\se2.wav", 1)
   End If
End Sub


■Cドライブの中にse1.wavとse2.wavを用意する。↓


■プログラムを実行する。
(解説)「A」を押すとse1.wavが鳴り、「A以外」を押すとse2.wavが鳴る。

∵ダウンロード file1.zip