请问如何用mcisendstring播放指定的cd位置

Question

seek CDAudio to Start
seek CDAudio to End
seek CDAudio to Position (0-Length)

Answer 1

Pos应当是数字型的，不过要有一个空格，注意下面的用法，不过用Seek是普通播放，而不是播放CD
 mciSendString "seek MyMedia to " & pos, Len(pos), 0, 0
播放CD对当前曲目的位置控制应当是
当前曲目是指当前播放CD的第几个曲子，用数字来表示
Dim sl As Stringsl = String(256, Chr(0))    
Dim ll As Long, ol As Long
    mciSendString "status NOWMUSIC position track " & 当前曲目, sl, Len(sl), 0
    ol = Val(Mid(Left(sl, 8), 1, 2)) * 60000 + Val(Mid(Left(sl, 8), 4, 2)) * 1000 + Val(Mid(Left(sl, 8), 7, 2)) * 10
    ll = Slid1.Value + ol
    sl = Format(ll \ 60000, "00") + ":" + Format((ll Mod 60000) \ 1000, "00") + ":" + Format((ll Mod 1000) \ 10, "00")    mciSendString "play NOWMUSIC from " & Left(sl, 8), vbNullString, 0, 0如果是先择曲目用下面的代码
先得到要播放的曲目的位置，然后从这一位置开始播放
mciSendString "status NOWMUSIC position track " & 曲目, S, Len(S), 0
mciSendString "play NOWMUSIC from " & Left(S, 8), vbNullString, 0, 0