成都创新互联网站制作重庆分公司

vb.net声音控件,vbs声音

vb.net中如何播放声音,是要什么控件嘛?

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

站在用户的角度思考问题,与客户深入沟通,找到峡江网站设计与峡江网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:网站设计制作、成都网站建设、企业官网、英文网站、手机端网站、网站推广、国际域名空间、网络空间、企业邮箱。业务覆盖峡江地区。

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

VB.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了。

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 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打开并自动转换,也可以使用。

vb.net中编辑音乐播放器用什么控件添加音乐

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


分享标题:vb.net声音控件,vbs声音
当前链接:http://cxhlcq.com/article/hshsjp.html

其他资讯

在线咨询

微信咨询

电话咨询

028-86922220(工作日)

18980820575(7×24)

提交需求

返回顶部