网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb.net声音api vb api声明

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

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

成都创新互联服务项目包括灵山网站建设、灵山网站制作、灵山网页制作以及灵山网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,灵山网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到灵山省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!

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

我用二进制读取了声音文件,VB或VB.net如何播放二进制声音数据,请高手赐教!

不明白你为什么要二进制读取声音文件,VB可以直接调用API播放声音文件,不需要你二进制来读取声音文件的。

Private

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"

(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)

'strFileName 要播放的文件名(带路径)

'playCount 播放的次数

'JianGe 多次播放时,每次的时间间隔

If Len(Dir(strFileName)) = 0 Then Exit Sub

If PlayCount = 0 Then Exit Sub

If JianGe 1000 Then JianGe = 1000

DoEvents

sndPlaySound strFileName, 16 + 1

Sleep JianGe

Call PlayWavFile(strFileName, PlayCount - 1, JianGe)

End Sub

Private Sub Form_Click()

PlayWavFile "C:\aaa.wav", 1, 1000 '参数:播放文件,播放次数,播放间隔

End Sub

在 VB.Net wav 附加"解决方案资源管理器", api 怎么播放

My.Computer.Audio.Play("文件路径及文件名")就可以了,vb.net没有必要用API

下面是读取嵌入式文件:

Dim res As Stream = Assembly.GetEntryAssembly.GetManifestResourceStream("ring.wav")

Dim bytes(res.Length - 1) As Byte

res.Read(bytes, 0, bytes.Length)

My.Computer.Audio.Play(bytes, AudioPlayMode.Background)

'注意生成操作哪里要选择:嵌入的资源


分享题目:vb.net声音api vb api声明
标题来源:http://bjjierui.cn/article/dojospc.html

其他资讯