VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 サウンド関係のメニュー
1.ビープ音(ブザー音)を鳴らす方法色々
2.Audio.Play メソッドを使って wav サウンドファイルを再生する
3.ビープ音(ブザー音)を使って音階を鳴らす
4.指定の音声を使ってテキストの内容を読み上げる
5. 
6.
7.
8. 
9. 
10. 
11.
12.
 . 
20.その他、当サイト内に掲載のサウンドに関するサンプル


2.wav サウンドファイルを再生する(26_Sou_02) (旧、SampleNo.072)
1.Audio.Play メソッドを使って wav サウンドファイルを再生する
2.
3.
4.
5.
6.

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :追加なし
参照設定:
追加なし
その他 :
    :
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.Audio.Play メソッドを使って wav サウンドファイルを再生する(072)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Audio.Play メソッドを使って wav サウンドファイルを再生する
    My.Computer.Audio.Play("..\..\..\data_pic\ringin.wav", AudioPlayMode.Background)
End Sub


Private sPlayer As System.Media.SoundPlayer

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'SoundPlayer クラスを使って wav サウンドファイルを連続再生する
    sPlayer = New System.Media.SoundPlayer("..\..\..\data_pic\ringin.wav")
    sPlayer.PlayLooping()
End Sub


Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'wav サウンドファイルの連続再生を停止する
    If Not (sPlayer Is Nothing) Then
        sPlayer.Stop()
        sPlayer.Dispose()
        sPlayer = Nothing
    End If
End Sub

このページのトップへ移動します。 2.


このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5. 



このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
サウンド sound 音楽 演奏 音声 再生 スピーカー wav WAVE ファイル 音を鳴らす 警告音




このページのトップへ移動します。