锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net声音控件 vbs播放音频代码

IT技术控件

vb.net中如何播放声音，是要什么控件嘛？My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的声音文件的路径
VB.net如何加载音效？方法一vb.net声音控件：调用系统DLL（这个有点不完善vb.net声音控件 ， 也就是播放声音时窗体无法控制，效果相当于Enabled=true，但音频播放完毕后就没事vb.net声音控件了）
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（WindowsMediaPlayer1vb.net声音控件的可见为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了 。
vb.net中编辑音乐播放器用什么控件添加音乐需要用到COM控件，例如media player、Real player等，或者用 .NET 自带的类库 System.Media下面的 SoundPlayer来播放音乐
vb.net 控件添加声音建一个窗体，里面添加一个按钮，代码里拷入下面的代码，运行后，单击按钮
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 SoundFileAs String, ResultAs Long
SoundFile = "c:\Windows\Media\chord.wav"
Result = sndPlaySound(SoundFile, SND_ASYNC)
End Sub
说明：
要播放不同的声音，例如0-9 ， 你找到相应的wav文件，编程实现就可以了 。
PS:没注意到你是VB.NET,上面的代码是VB6的，生成工程文件 ， 直接用.NET打开并自动转换，也可以使用 。
【vb.net声音控件 vbs播放音频代码】vb.net声音控件的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vbs播放音频代码、vb.net声音控件的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何清除FTP服务器缓存？ ftp服务器缓存怎么清除

    下一篇：目前显卡怎么关掉，显卡怎么关掉超频