vb.net音频 vbs播放音频代码

vb.net 中如何实现播放mp3文件

在.NET里，没有托管的音乐播放器，用API只能播放WAV格式，对于MP3等形式的音频文件，就要依赖于其他控件了，常用的就是

创新互联建站专注于企业成都全网营销推广、网站重做改版、嵩县网站定制设计、自适应品牌网站建设、H5响应式网站、成都商城网站开发、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为嵩县等各大城市提供网站开发制作服务。

MediaPlayer。使用方法：

在工具箱上点右键，选择“选择项目(Choose Items)”，切到COM选项卡，找到 Windows Media Player，勾选，确定

在t工具箱上，把刚才加入的MediaPlayer控件，拖放到窗体上

代码：

WindowsMediaPlayer1.URL = "mp3文件路径，支持网络路径"

WindowsMediaPlayer1.Ctlcontrols.play

基本就OK了，至于其他的操作诸如下一曲上一曲暂停停止，直接看 WindowsMediaPlayer1.Ctlcontrols. 里面的方法吧。

方法一：调用系统DLL（这个有点不完善，也就是播放声音时窗体无法控制，效果相当于Enabled=true，但音频播放完毕后就没事了）

Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim SoundFile As String, Result As Long

SoundFile = "D:\KuGou\Pianoboy - 第105天.wav" '此处为路径

Result = sndPlaySound(SoundFile, 0)

End Sub

方法二：使用WindowsMediaPlayer（WindowsMediaPlayer1的可见为False）

先添加一个windowsmediaplayer控件（工具箱里没有，需要手动添加）

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

WindowsMediaPlayer1.visible=False

Me.WindowsMediaPlayer1.URL = "D:\KuGou\Pianoboy - 第105天.mp3"

End Sub

上面的都是点击button1（按钮1）后播放声音，若是鼠标移动到某控件上发出声音的话改一下触发事件就OK了。

My.Computer.Audio.Play("SoundFile.wav")

SoundFile.wav是你要播放的声音文件的路径

当前文章：vb.net音频 vbs播放音频代码
本文网址：http://6mz.cn/article/dddhcgg.html