vb.net声音控件 vbs播放声音

vb.net 控件添加声音

建一个窗体，里面添加一个按钮，代码里拷入下面的代码，运行后，单击按钮

成都创新互联是一家专业提供富川企业网站建设,专注与成都做网站、成都网站设计、成都h5网站建设、小程序制作等业务。10年已为富川众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。

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

Private Const SND_ASYNC = H1 '异步播放

Private Const SND_SYNC = H0 '同步播放（缺省）

Private Sub Command1_Click()

Dim SoundFile As String, Result As Long

SoundFile = "c:\Windows\Media\chord.wav"

Result = sndPlaySound(SoundFile, SND_ASYNC)

End Sub

说明：

要播放不同的声音，例如0-9，你找到相应的wav文件，编程实现就可以了。

PS:没注意到你是VB.NET,上面的代码是VB6的，生成工程文件，直接用.NET打开并自动转换，也可以使用。

方法一：调用系统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是你要播放的声音文件的路径

需要用到COM控件，例如media player、Real player等，或者用 .NET 自带的类库 System.Media下面的 SoundPlayer来播放音乐

文章名称：vb.net声音控件 vbs播放声音
本文来源：http://6mz.cn/article/doesihj.html