欧美一区二区三区老妇人-欧美做爰猛烈大尺度电-99久久夜色精品国产亚洲a-亚洲福利视频一区二区

vb.net聲音api vb api聲明

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

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

成都創(chuàng)新互聯(lián)服務項目包括靈山網(wǎng)站建設、靈山網(wǎng)站制作、靈山網(wǎng)頁制作以及靈山網(wǎng)絡營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關系等,向廣大中小型企業(yè)、政府機構等提供互聯(lián)網(wǎng)行業(yè)的解決方案,靈山網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前,我們服務的客戶以成都為中心已經(jīng)輻射到靈山省份的部分城市,未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任!

SoundFile.wav是你要播放的聲音文件的路徑

我用二進制讀取了聲音文件,VB或VB.net如何播放二進制聲音數(shù)據(jù),請高手賜教!

不明白你為什么要二進制讀取聲音文件,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 播放的次數(shù)

'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 '參數(shù):播放文件,播放次數(shù),播放間隔

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聲明
分享網(wǎng)址:http://chinadenli.net/article32/dojospc.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供企業(yè)建站搜索引擎優(yōu)化動態(tài)網(wǎng)站軟件開發(fā)面包屑導航微信小程序

廣告

聲明:本網(wǎng)站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)

微信小程序開發(fā)