不明白你為什么要二進(jìn)制讀取聲音文件,VB可以直接調(diào)用API播放聲音文件,不需要你二進(jìn)制來讀取聲音文件的。

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供城中網(wǎng)站建設(shè)、城中做網(wǎng)站、城中網(wǎng)站設(shè)計(jì)、城中網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、城中企業(yè)網(wǎng)站模板建站服務(wù),十多年城中做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
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 多次播放時(shí),每次的時(shí)間間隔
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
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call mciExecute("play F:\MUSIC\WMA\guitar\強(qiáng)調(diào)樂隊(duì)-無聲的嘆息.mp3 ")
End Sub
復(fù)制可不怎么好吧,那些dll你都要有才行,vb點(diǎn)虐 做安裝程序也不麻煩,只要添加一個(gè)新項(xiàng)目--安裝向?qū)?根據(jù)提示按下去就是了
哎~~~都說得很清楚了,你還......再給個(gè)提示吧,用timeofday來提取當(dāng)前時(shí)間,和自定義時(shí)間對(duì)比
調(diào)用系統(tǒng)Api
[DllImport("winmm.dll")] //引用winmm.dll
public static extern long waveOutSetVolume(long deviceID, long Volume);
在winmm.dll中
第一個(gè)參數(shù)可以為0,表示首選設(shè)備
第二個(gè)參數(shù)為音量:0xFFFF為最大,0x0000為最小,其中高位(前兩位)表示右聲道音量,低位(后兩位)表示左 聲道音量 。
2、彈出系統(tǒng)音量調(diào)節(jié)框
ProcessStartInfo Info=new ProcessStartInfo();
Info.FileName = "Sndvol32";
Process.Start(Info);
My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的聲音文件的路徑
文章題目:vb點(diǎn)虐
聲音 vb怎么給程序添加音效
當(dāng)前鏈接:http://chinadenli.net/article24/ddgsjje.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站建設(shè)、云服務(wù)器、網(wǎng)站維護(hù)、微信小程序、小程序開發(fā)、App設(shè)計(jì)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)