52(1).txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

如何用API播放CD   
          
'Author: Gordon F. MacLeod
' How to play a CD Audio disc via API 
' Declare the following API
Declare Function mciSendString& Lib "MMSYSTEM" (ByVal lpstrCommand$,
ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal hCallBack%)

'Add the code below to appropriate routines

Sub cmdPlay_Click ()
Dim lRet As Long
Dim nCurrentTrack As Integer

'Open the device
lRet = mciSendString("open cdaudio alias cd wait", 0&, 0, 0)

'Set the time format to Tracks (default is milliseconds)
lRet = mciSendString("set cd time format tmsf", 0&, 0, 0)

'Then to play from the beginning
lRet = mciSendString("play cd", 0&, 0, 0)

'Or to play from a specific track, say track 4
nCurrentTrack = 4
lRet = mciSendString("play cd from" & Str(nCurrentTrack), 0&, 0, 0)

End Sub
 

' Remember to Close the device when ending playback

Sub cmdStop_Click ()
Dim lRet As Long

'Stop the playback
lRet = mciSendString("stop cd wait", 0&, 0, 0)

DoEvents  'Let Windows process the event

'Close the device
lRet = mciSendString("close cd", 0&, 0, 0)

End Sub