控制左右声道

最新推荐文章于 2023-06-09 11:50:07 发布

DemonLoveLizzy

最新推荐文章于 2023-06-09 11:50:07 发布

阅读量3.2k

点赞数

分类专栏：源码文章标签： function hex command string

本文链接：https://blog.youkuaiyun.com/DemonLoveLizzy/article/details/109709

版权

源码专栏收录该内容

7 篇文章

订阅专栏

博客给出两个自定义函数，可方便取得和设置左右声道。通过waveOutGetVolume和waveOutSetVolume函数，将音量值转换为十六进制，高位为左声道值，低位为右声道值。还给出示例代码，且可使用Slider进行细致控制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'Code By 魑魅魍魉
'mailto:DemonStudio@hotmail.com

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个自定义的函数可以方便的取得和设置左右声道。

如：

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

可以用一个Slider来进行细致的控制。

原理：

waveOutGetVolume取得的音量值转换成16进制，高位是左声道的值，低位是右声道的值。