Beep音を出すには?
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Beep音を出す
Dim I As Integer
For I = 1 To 100 ' Loop 100 times.
Beep() ' Sound a tone.
Next I
End Sub
上記のコードでBeep音を出したいのですが、鳴りません。
(Beepコードは、VBのサンプルコードです。)
OS:WinXP SP3
VB.NET Ver2003です。
フォームにコマンドボタンを一つ貼り付け、
コマンドボタンのクリックイベントで
Beep音を鳴らしたいです。
PCのデバイスマネージャ設定は、
Beep音が有効になっています。
他の音(Win立上音他)は、デフォルトのままです。
詳しい方、教えて下さい。
お礼
早急の御回答ありがとうございました。 お陰さまで、Beep音を消すことができました(^^)。