MCISENDSTRING 用 SETAUDIO 切换问题

Question

'模块
Enum audiosource
    audiostereo = 0 ' "stereo"
    audioleft = 1 '"left"
    audioright = 2 '"right"
End EnumPublic Function setaudiosource(saudiosource As audiosource) As Boolean
    Dim refint As Long
    Dim strsource As String
    Select Case saudiosource
        Case 1: strsource = "left"
        Case 2: strsource = "right"
        Case 0: strsource = "stereo"
    End Select
    setaudiosource = False
    refint = mciSendString("setaudio mpeg source to " & strsource, 0&, 0&, 0&)
    If refint = 0 Then setaudiosource = True
    
End Function
'程序是这样的
Select Case SetAudioLR
    Case 1:
       setaudiosource audioleft
    Case 2:
       setaudiosource audioright
    Case 3:
       setaudiosource audiostereo
End Select
这样运行有错误没？ 为什么不能切换声道？？？

Answer 1

用这个方法能不能切换 VCD 的 DAT 文件????????????????

Answer 2

refint = mciSendString("setaudio VCD source to " & strsource, 0&, 0&, 0&)

Answer 3

测试过了,不可以! 而且出现了另外一个错误!这个方法是不是只支持 VCD 1.1 格式的 DAT 文件? 
现在市面上大部分都是 VCD 2.0 格式的文件,有没有可以切换声道的代码,我找了好久也没有结果!

Answer 4

顶下， mciSendString我已经解决VCD格式问题，DVD版本和MPG版本没有解决左右声道问题，望高手支招

Answer 5

killer0902
能提供一下代码吗?
[email protected]