版权声明:本博客所有文章版权归博主刘兴所有,转载请注意来源 https://blog.csdn.net/AI_LX/article/details/88686490
1.wav等波形文件
Play(String)
播放 .wav 声音文件。
Play(Byte[], AudioPlayMode)
播放 .wav 声音文件。
Play(Stream, AudioPlayMode)
播放 .wav 声音文件。
Play(String, AudioPlayMode)
播放 .wav 声音文件。
AudioPlayMode.Background 在后台播放声音。 该调用代码继续执行。
AudioPlayMode.BackgroundLoop 直到在后台播放声音Stop调用方法。 该调用代码继续执行。
AudioPlayMode.WaitToComplete 声音并等待它完成之前调用代码将继续。
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
PlayBackgroundSoundFile(AudioPlayMode.WaitToComplete)
End Sub
Sub PlayBackgroundSoundFile(playMode As AudioPlayMode)
My.Computer.Audio.Play("E:\music\SoundTest.wav",
playMode)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
PlayBackgroundSoundFile(AudioPlayMode.BackgroundLoop)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
My.Computer.Audio.Stop()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
PlayBackgroundSoundFile(AudioPlayMode.Background)
End Sub
End Class
播放资源文件
Public Class Form1
Sub PlayBackgroundSoundFile(playMode As AudioPlayMode)
My.Computer.Audio.Play(My.Resources.Resource1.SoundTest, playMode)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
PlayBackgroundSoundFile(AudioPlayMode.BackgroundLoop)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
My.Computer.Audio.Stop()
End Sub
End Class
2.mp3文件
工具箱里,点右键,选择“选择项目(Choose Items)”,切到COM页,找到 Windows Media Player, 勾选,
把刚才加入的MediaPlayer控件,拖放到Winform上
Public Class Form1
Sub PlayBackgroundSoundFile()
AxWindowsMediaPlayer1.URL = "e:\music\1.mp3"
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
PlayBackgroundSoundFile()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
End Class