这个是怎么回事那？

[840206]

我现在用MMControl1做个播放器，想用ＡＰＩ控制声道，可是就是实现不了！说是找不到数据成员，怎么改那！代码如下：
Option Explicit

Const MMSYSERR_NOERROR = 0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_PURGE = &H40
Const SND_FILENAME = &H20000
Dim MyVolume As clsVolume
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Dim sAliasName As String
Dim FlagSlide As Boolean, FlagNext As Boolean
Dim XSlide As Single, FileLength As Long
Dim NoSound As Button
Private Sub Lefts_Click()

If Not NoSound.Checked Then　　　这行的错误！！
Lefts.Checked = True
Rights.Checked = False
Audio.Checked = False
mciSendString "set " & sAliasName & " audio left on", vbNullString, 0, 0
mciSendString "set " & sAliasName & " audio right off", vbNullString, 0, 0
'mciExecute "set " & sAliasName & " channels 1"
End If
End Sub

[faysky2]

Dim NoSound As Button
-----------------
这个声名在编译时能通过?

[840206]

那快是错了！我播放ＭＰ３文件可以进行声道切换，播放ＤＡＴ文件怎么就不好使那！

[一笑拔剑]

dat文件没有声道的话你怎么变阿

[清晨曦月]

他没有，电脑上还没有吗。。。

在处理DAT文件的问题时，可以屏蔽不需要的声道，