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