音ファイル(Wavファイル)をバックグラウンドで再生するプログラム。
・画面上のボタンを押してファイルを選択する。
・再生ボタンを押して、音楽を再生する。
・停止ボタンを押して、音楽を停止する。
※必要最小限の処理のみ記載。各種チェック・例外処理は各自追加して下さい。
※このサンプルではアプリケーションリソースは使用していません。
※音ファイル(←右クリックで名前をつけてリンク先を保存)はこちらから。
【 コード 】
Public Class Form1 ' フォームロード Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = "c:\sample01.wav" End Sub ' 参照ボタン Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ofd As New OpenFileDialog() '複数のファイルは選択不可にする ofd.Multiselect = False 'ダイアログを表示 If ofd.ShowDialog() = DialogResult.OK Then ' ラベルに表示 Label1.Text = ofd.FileName End If End Sub ' 再生ボタン Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' ファイル存在チェック If System.IO.File.Exists(Label1.Text) = False Then MessageBox.Show("ファイルが存在しません") Exit Sub End If ' ファイル拡張子チェック Dim strSoundFile As String = Label1.Text If strSoundFile.Substring(strSoundFile.Length - 4, 4) <> ".wav" Then MessageBox.Show("拡張子が.wavじゃないので再生できません。") Exit Sub End If ' バックグラウンドで音を再生 My.Computer.Audio.Play(Label1.Text, AudioPlayMode.Background) End Sub ' 停止ボタン Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click My.Computer.Audio.Stop() End Sub End Class
【 その他 】
・Visual Studio 2008では動作確認済みです。
・参考URL:Visual Basicでバックグラウンドのサウンドを再生する
・Visual Basicでバックグラウンドのサウンドを停止する
・My.Computer.Audio.Play メソッド