用MCI指令进行多媒体编程

　　If Cur < Total Then i％ = mciExecute(“play cdaudio from" ＋ Str(Cur ＋ 1))
　　End Sub
　　'播放上一首
　　Private Sub Command5_Click()
　　Dim ReturnStr As String ＊ 128
　　i％ = mciExecute(“set cdaudio time format tmsf")
　　If Cur > 1 Then i％ = mciExecute(“play cdaudio from" ＋ Str(Cur － 1))
　　End Sub
　　'中止CD的播放并退出
　　Private Sub Command6_Click()
　　i％ = mciExecute(“stop cdaudio")
　　i％ = mciExecute(“close cdaudio")
　　End
　　 End Sub
　　'程序启动时打开CDAudio设备并得到曲目总数
　　Private Sub Form_Load()
　　Dim ReturnStr As String ＊ 128
　　i％ = mciSendString(“open cdaudio", ReturnStr, 128, 0)
　　i％ = mciSendString(“status cdaudio number of tracks", ReturnStr, 128, 0)
　　 Total = Val(ReturnStr)
　　End Sub
　　'退出时中止CD的播放
　　Private Sub Form_Unload(Cancel As Integer)
　　i％ = mciExecute(“stop cdaudio")
　　i％ = mciExecute(“close cdaudio")
　　End Sub
　　'每隔一秒监测当前播放的曲目号
　　Private Sub Timer1_Timer()
　　On Error Resume Next
　　Dim ReturnStr As String ＊ 128
　　i％ = mciSendString(“status cdaudio current track", ReturnStr, 128, 0)
　　Cur = Val(ReturnStr)
　　End Sub

　　 好了，现在这个CD播放器已经可以工作了，如果你再为它扩充一些有趣的功能的话，就是一个完整的小软件了。