控制左右声道的控件或源码

Question

文件格式为MPEG4格式的文件，如何能让两个音箱发左声道的声音或是右声道的声音，MCI只能操作MPEG1格式的文件

Answer 1

控制左右声道 
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal _ lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As _ 
 Long, ByVal hwndCallback As Long) As Long 
Private Sub Command1_Click() 
PlaySound "F:\music\incubus\水木年华-再见了最爱的人.mp3" 
End Sub 
Function PlaySound(ByVal FileName As String) As Boolean 
 Dim cmd As String, exName As String 
 exName = Right(FileName, 3) 
 mciSendString "close " & exName, 0, 0, 0 
 cmd = "open " & FileName & " alias " & exName 
 mciSendString cmd, 0, 0, 0 
 PlaySound = mciSendString("play " & exName, 0, 0, 0) 
End Function 
Private Sub Command2_Click() 
 Static flag As Boolean ' 设置左声道开关 
 mciSendString "set all audio all " & IIf(flag, "on", "off"), 0, 0, 0 
 If flag = False Then 
 Command2.Caption = "左声道(关)" 
 Else 
 Command2.Caption = "左声道(开)" 
 End If 
 flag = Not flag 
End Sub 
Private Sub Command3_Click() 
 Static flag As Boolean ' 设置右声道开关 
 mciSendString "set all audio all " & IIf(flag, "on", "off"), 0, 0, 0 
 If flag = False Then 
 Command3.Caption = "右声道(关)" 
 Else 
 Command3.Caption = "右声道(开)" 
 End If 
 flag = Not flag 
End Sub 
Private Sub Command4_Click() '' 设置mp3设备音量:0--1000,500表示音量适中 
 mciSendString "set mp3 audio volume to 500", 0, 0, 0  
End Sub

Answer 2

我的网站上有媒体播放器的源码，你可以看看。http://www.j2soft.cn/VB资料->查询“媒体播放器”；＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
http://j2soft.008.net/

Answer 3

TO: cuizm(射天狼 http://www.j2soft.cn/)该示例只是简单地关闭了左声道 或 右声道,并非让左右声道同时播放多媒体文件的左声道或右声道

Answer 4

求购视频会议源代码!
用提供者请电:
[email protected]

Answer 5

上面的例子是使用MCI 命令,你还可以使用混音器(MIXER)API进行,可以去MSDN里面查看