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

[hff_xj]

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

[IamDeane]

控制左右声道
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

[射天狼]

我的网站上有媒体播放器的源码，你可以看看。

http://www.j2soft.cn/

VB资料->查询“媒体播放器”；

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
http://j2soft.008.net/

[CatchWind]

TO: cuizm(射天狼 http://www.j2soft.cn/)

该示例只是简单地关闭了左声道 或 右声道,并非让左右声道同时播放多媒体文件的左声道或右声道

[moleboy]

联系我!我有
VCD切换声道的源程序!
真正的两个喇叭出声!
QQ:9573156

[thht4321]

求购视频会议源代码!
用提供者请电:
[e-mail]

[lld2001]

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