返回顶部

收藏

如何用API播放CD

更多
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
//该片段来自于http://outofmemory.cn

标签:VB,系统

收藏

0人收藏

支持

0

反对

0

相关聚客文章
  1. 过滤阳光 发表 2012-12-21 01:58:31 网站报502 bad gateway
  2. 乖乖兔 发表 2013-02-11 16:35:04 制作Linux启动盘的四种方法
  3. 王垠 发表 2013-04-01 00:56:31 Hindley-Milner 类型系统的根本性错误
  4. Panni_007 发表 2013-04-25 06:03:39 【Pure杂谈】Linux服务器系统的版本选择
  5. 过滤阳光 发表 2013-05-27 06:05:00 linux 删除目录下所有指定文件
  6. 博主 发表 2013-06-17 14:56:28 webpyCMS:基于web.py的网站内容管理系统
  7. 博主 发表 2013-07-06 18:24:47 系统架构师JD
  8. Panni_007 发表 2013-07-23 04:53:57 【系统】Not-hacker OS Beta1版本发布
  9. 博主 发表 2011-03-24 07:00:00 自定义Ubuntu系统引导菜单
  10. 博主 发表 2013-08-13 05:14:05 Android 系统架构分析
  11. 博主 发表 2013-08-26 20:53:18 监测系统的情况,你必须知道的两三事!
  12. tenking 发表 2013-10-26 02:46:06 XP系统无法安装net framework 4.0

发表评论