怎么样是我的左喇叭响，右喇叭不响

Question

怎么样是我的左喇叭响，右喇叭不响

Answer 1

我写的可能不清楚。我的目的是播放一段wav文件，但是我指定一个音箱发声，比如左边的 。

Answer 2

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
Private Const WAVE_MAPPER = -1&
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 FunctionPrivate Sub Command1_Click()
  SetLR 65535, 0
End SubPrivate Sub Command2_Click()
  SetLR 0, 65535
End SubPrivate Sub Command3_Click()
  SetLR 65535, 65535
End Sub
COMMAND1，COMMAND2分别实现左右喇叭的单响，COMMAND3实现两个喇叭一起响。

Answer 3

haoya(不是不想)  的方法很不错，建议你使用。

Answer 4

用mciSendString来操作多媒体对象

Answer 5

haoya(不是不想)方法!不错!学习!