方法一：調(diào)用系統(tǒng)DLL（這個(gè)有點(diǎn)不完善，也就是播放聲音時(shí)窗體無法控制，效果相當(dāng)于Enabled=true，但音頻播放完畢后就沒事了）
創(chuàng)新互聯(lián)專注于企業(yè)營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站重做改版、灌云網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5頁面制作、商城系統(tǒng)網(wǎng)站開發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為灌云等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
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）
先添加一個(gè)windowsmediaplayer控件（工具箱里沒有，需要手動(dòng)添加）
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
上面的都是點(diǎn)擊button1（按鈕1）后播放聲音，若是鼠標(biāo)移動(dòng)到某控件上發(fā)出聲音的話改一下觸發(fā)事件就OK了。
My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的聲音文件的路徑
左右聲道控制的原理：
waveOutGetVolume取得的音量值轉(zhuǎn)換成16進(jìn)制，高位是左聲道的值，低位是右聲道的值。
’這段代碼摘這段代碼摘自互聯(lián)網(wǎng)
Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Const WAVE_MAPPER = -1
Public Function SetLR(ByVal L As Long, ByVal R As Long) As Long
Dim mLR As String
mLR = "H" Right("0000" Hex(L), 4) Right("0000" Hex(R), 4)
waveOutSetVolume WAVE_MAPPER, CLng(mLR)
End Function
Public Function GetLR(ByRef L As Long, ByRef R As Long) As Long
Dim LR As Long
waveOutGetVolume WAVE_MAPPER, LR
L = CLng("H" Left(Hex(LR), 4))
R = CLng("H" Right(Hex(LR), 4))
End Function
以上2個(gè)自定義的函數(shù)可以方便的取得和設(shè)置左右聲道。
如：
Private Sub Form_Load()
Dim mL As Long, mR As Long
GetLR mL, mR
MsgBox "左" mL "--右" mR
End Sub
Private Sub Command1_Click()
SetLR 65535, 22222
End Sub
可以用一個(gè)Slider來進(jìn)行細(xì)致的控制。
下載類庫，可以實(shí)現(xiàn)左右聲道的控制
驅(qū)動(dòng)程序，設(shè)置，文件，注冊(cè)表四個(gè)方面，震動(dòng)，如看它是否可以恢復(fù)全面檢查，案件的接口是壞的，這是為配件
首先，請(qǐng)檢查聲音卡驅(qū)動(dòng)程序，右鍵單擊“我的電腦” - 屬性 - 硬件 - 設(shè)備管理器 - 聲音，視頻和游戲控制器 - 右擊 - ReaItek - 更新或掃描，卸載并重新安裝。 （如果你下載的驅(qū)動(dòng)程序生命沒有驅(qū)動(dòng)程序包 - 驅(qū)動(dòng)更新 - 聲音，視頻 - 開始更新 - 自動(dòng)找到的官方驅(qū)動(dòng)程序 - 重新啟動(dòng)計(jì)算機(jī)。）
調(diào)試麥克風(fēng)：控制面板 - 高清晰音頻配置 - 混頻器 - 重放 - 小扳手 - 選擇 - OK - - 后粉紅色 - X'靜音，推高了麥克風(fēng)插孔前面板 - 選擇 - OK，然后打X麥克風(fēng)靜音，然后在右邊拉點(diǎn)音頻I/O--小扳手 - 選擇“禁用前面板插孔檢測(cè) - OK - 返回混頻器 - 錄制 - 小扳手 - 點(diǎn)擊麥克風(fēng)的音量（版本不一致需打X-靜音立體聲混音）
加強(qiáng)麥克風(fēng)：右鍵單擊右下角的小喇叭（小喇叭的音量上） - 調(diào)整音頻屬性 - 音量 - 設(shè)備音量 - 高級(jí) - （主音??量全推到上） - 選項(xiàng) - 屬性 - 麥克風(fēng)音量打勾 - 確定返回選項(xiàng) - 高級(jí)控制 - 高級(jí) - 麥克風(fēng)加強(qiáng)了鉤。
右下角的小喇叭顯示：開始---設(shè)置---控制面板 - 聲音和音頻設(shè)備 - 音量 - （勾選）將音量圖標(biāo)放入任務(wù)欄上。
5。在網(wǎng)頁中，網(wǎng)頁聲音的操作方法：打開網(wǎng)頁 - 工具 - 選項(xiàng) - 高級(jí) - （勾選）播放的聲音。
6。游戲耳機(jī)出聲來：控制面板---高清晰音頻配置 - 音頻I/O--耳機(jī) - 選舉8CH喇叭。
7。前部和后部面板插孔調(diào)試：控制面板 - 高清晰音頻配置 - 音頻I/O--模擬 - 后面板插孔圖標(biāo) - 單擊 - 你插入的設(shè)備嗎？ （需插入的設(shè)備，如插耳機(jī)） - 當(dāng)選耳機(jī) - OK，所以
8。使用QQ聊天的語言時(shí)，MIC音量無法調(diào)整，請(qǐng)下載補(bǔ)丁。
9，如聲卡驅(qū)動(dòng)安裝不上的解決方法：控制面板 - 管理工具 - 服務(wù) - Windows音頻 - 啟動(dòng)類型設(shè)置為“自動(dòng)”重新啟動(dòng)它。
10。注冊(cè)表的方法：
開始 - 運(yùn)行 - 輸入regedit打開注冊(cè)表，然后單擊“打開HKEY_LOCAL_MACHINE \ SOFTWARE \微軟\的Windows \ CurrentVersion \ Run在右側(cè)窗口中新建字符串”系統(tǒng)托盤“點(diǎn)右鍵（在運(yùn)行于新的）鍵（在系統(tǒng)托盤中雙擊編輯）“C：\ WINDOWS \ SYSTEM32 \ Systray.exe”win2000系統(tǒng)，或“C：\ WINNT \ SYSTEM32 \ Systray.exe”
開始 - 運(yùn)行 - 輸入regedit打開注冊(cè)表，然后單擊“打開HKEY_LOCAL_MACHINE \ SOFTWARE \微軟\ WINDOWSNT \ CURRENTVERSION \ Drivers32創(chuàng)建一個(gè)新的字符串值，命名為”wavemapper“值”msacm32。DRV“。重新啟動(dòng)計(jì)算機(jī)。
重慶分公司
重慶分公司
