vb.net2019-播放声音(wav、mp3等)

「已注销」

已于 2022-12-12 21:44:25 修改

阅读量4.5k

点赞数 1

文章标签： visualbasic .net vb.net声音

于 2019-03-20 13:22:45 首次发布

本文链接：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