|
|
BBY
 |
![119.136.146.231[欧洲GZ110.CN]](images/gb_ip.gif)
|
我的连接怎么搞啊 谢谢了
留言时间：(2008-11-12 18:31:09)
站长给你回复：
感谢您在本站的留言，请继续关注我们！
|
|
|
yiyou
|
|
您好！我们想与您交换一下友情链接。
www.yiyoubiz.cn
希望合作！
留言时间：(2008-11-7 22:45:36)
站长给你回复：
申请链接就是了
|
|
|
Mery
 |
|
这个网站的内容更新好慢啊!
留言时间：(2008-7-30 23:25:20)
|
|
|
林一
 |
|
不错！顶~！~可以交流么？技术问题！！~~
留言时间：(2008-4-1 13:54:22)
站长给你回复：
呵呵，可以交流啊 。只是本人才疏学浅
感谢您在本站的留言，请继续关注我们！
|
|
|
猪的猫
|
|
站长什么时间可以教我学习一下VB啊
留言时间：(2008-3-25 22:36:43)
站长给你回复：
慢慢的找些教程学习。不能急于求成
|
|
|
海燕
 |
|
站长你的内容更新的比较的快，只是有的内容觉得不是精华，多收集的经典文章。呵呵 个人建议。
留言时间：(2008-3-19 20:29:51)
站长给你回复：
谢谢你的建议,我会慢慢的找一些好的资源.
感谢您在本站的留言，请继续关注我们！
|
|
|
女闲女闲
|
|
该留言已经隐藏，只有站长可以看到。
站长给你回复：
使用API函数CDdoor 来控制光驱门的开和关程序十分简单，由于 CDdoor 函数自身包含了对异常错误的处理机制，因此这个程序的通用性很高，你可以把这段代码移植到你的程序中，实现某些多媒体播放器所常用的开关光驱的功能。
CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数，我们只须先加入如下的声明后就能引用这个API函数：
Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
( _
ByVal lpstrCommand As String, _ String，这是控制命令参数
ByVal lpstrReturnString As String, _ String，这是返回值
ByVal uReturnLength As Long, _ Long，返回值长度参数
ByVal hwndCallback As Long _
) As Long
引用的语法是：
Call CDdoor("set CDAudio door closed", 0, 0, 0) 用以关闭光驱门
Call CDdoor("set CDAudio door open", 0, 0, 0) 用以打开光驱门
程序中使用了一个布尔型变量来标示当前光驱门开与关的状态。
如果配合检测光驱是否存在的函数一起使用，此程序的通用性会更高。而关于检测驱动器信息的函数GetDriveType，GetLogicalDrives，我们会在另外一个实例中介绍。
为了学习方便，以下提供了源代码并附详细的中文注释：
'-------------------------------------------
' 利用API函数控制光驱的开和关
'-------------------------------------------
'程序说明：
' 本例使用API函数 CDdoor 来控制光驱门的开和关程序十分简单，由于 CDdoor 函数自身包含了对异常错误的处理机制，因此这个程序的通用性很高，你可以把这段代码移植到你的程序中，实现某些多媒体播放器所常用的开关光驱的功能。
'-------------------------------------------
Option Explicit
'说明：CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数
Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long _
) As Long
'CDOpen用来标示光驱开与关的状态
Dim CDOpen As Boolean
Private Sub Command1_Click()
On Error Resume Next
'如果关闭则打开，并且按钮做相应变化
If CDOpen = False Then
Call CDdoor("set CDAudio door open", 0, 0, 0)
CDOpen = True
Command1.Caption = "点击关闭光驱"
Else
'否则关闭
Call CDdoor("set CDAudio door closed", 0, 0, 0)
CDOpen = False
Command1.Caption = "点击打开光驱"
End If
End Sub
Private Sub Form_Load()
CDOpen = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub
|
|
![当前ip:38.103.63.57[该ip来自：美国GZ110.CN]](images/index_08.jpg)
