设为首页收藏本站Access中国
开启辅助访问

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› API › 查看内容

ACCESS 打开/关闭光驱(API类技巧)

2002-5-2 09:05| 发布者: admin| 查看: 1364| 评论: 5|原作者: 大熊|来自: www.office-cn.net

摘要: 先将以上代码全部放在新建模块中 然后按ctrl+G打开调试窗口,粘贴以下一行代码,就可打开光驱。 '打开光驱 'mciSendStringA Set CDA ...
先将以上代码全部放在新建模块中
然后按ctrl+G打开调试窗口,粘贴以下一行代码,就可打开光驱。

Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long)

'打开光驱

'mciSendStringA "Set CDAudio Door Open", 0&, 0, 0

'关闭光驱

'mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0

收藏 分享 邀请
上一篇：【源码】声明32位和64位Access、Excel等VBA兼容的API函数的方法下一篇：API在VB中应用之技巧集锦（鱼之乐）
发表评论

最新评论

引用 make 2002-5-2 16:41
API是什么啊,access里怎樣用啊
引用 大熊 2002-5-2 18:03
先将以上代码全部放在新建模块中
然后按ctrl+G打开调试窗口,粘贴以下一行代码,就可打开光驱,很有成感啊!
mciSendStringA "Set CDAudio Door Open", 0&, 0, 0
引用 chaojianan 2009-9-27 11:36
谢谢，收藏了。
引用 好运牛 2013-11-13 20:08
好用很神奇，看来access可以做好多事。非常感谢大熊的分享，真是高人啊
引用 好运牛 2013-11-13 20:12
我按照大熊 的语句做的实例，看看吧

查看全部评论(5)

相关分类

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-2-23 22:19 , Processed in 0.084579 second(s), 25 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部