|
''''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
[电脑技术]使用?和*两个通配符迅速批量(搜索)查找文件 [聊天工具]快速又高效 用Email免费发送网络传真__天极Yesky
[常用软件]网管工具 用OH协助服务器进行安全监控 [常用软件]留住精彩 用“数码故事”制作DVD光碟
[常用软件]小块头有大智慧 用Nero轻松设计个性化光盘 [常用软件]技高一筹 用Winamp播放影碟
[VB.NET程序]Auto Complete combo Box（VB.NET Source Use API… [VB.NET程序]在 VB 中使用 Unicode API
[VB.NET程序]用 ＶＢ 实现表单的自动提交 [VB.NET程序]用 VB 打开任意盘(硬盘/U盘/光盘)的文件.
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
