いいから、つくれ!

マミさんと2次元アイドルが大好きなえりおんさんのぶろぐです!

VB.netによるWAVEファイルの音声再生

私がVBでオセロを作っているときに、音声再生したいと思ってその時に音声再生の方法で困ったことがあったので、その時の備忘録として一部ソースコード公開します

 

 

    
    '音声ファイルを読み込む
    Private WhiteVoice As System.IO.Stream = My.Resources.バルサミコす
    Private BlackVoice As System.IO.Stream = My.Resources.なっとくいかねぇ
    Private PlayVoice As System.IO.Stream = Nothing

    ''' 石を置いたときに発生するイベント
    Private Sub Grid_PutNew(ByVal sender As Object, ByVal e As System.EventArgs) Handles Grid.PutNew
        Call Grid_Reversed(sender, e)

        '◆追加_黒番で石を置いた時のVoice処理
        'If lblBlackTurn.Visible = True Then
        If lblBlackTurn.Visible = True Then
            PlayVoice = BlackVoice
        Else
            PlayVoice = WhiteVoice
        End If
        PlayVoice.Seek(0, SeekOrigin.Begin)
        My.Computer.Audio.Play(PlayVoice, AudioPlayMode.Background)
    End Sub

<PS>

これはあくまで、一つの独自解法でしかないので、絶対に正しいものではないです><。