音(Wavファイル)を再生・停止するサンプルプログラム【VB.net】

音ファイル(Wavファイル)をバックグラウンドで再生するプログラム。

Wavファイルを再生・停止するサンプルプログラム Visual Basic

・画面上のボタンを押してファイルを選択する。
・再生ボタンを押して、音楽を再生する。
・停止ボタンを押して、音楽を停止する。

※必要最小限の処理のみ記載。各種チェック・例外処理は各自追加して下さい。
※このサンプルではアプリケーションリソースは使用していません。
音ファイル(←右クリックで名前をつけてリンク先を保存)はこちらから。

 

【 コード 】

プロジェクトのダウンロード

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 メソッド

 
お問い合わせはこちら