文件名称:dvd
- 所属分类：
- DVD
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2008-10-13
- 文件大小：
- 5.7kb
- 下载次数：
- 0次
- 提 供 者：
- 黄**
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
Option Explicit
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
Dim state1 As Boolean
Private Sub Command1_Click()
打开光驱
state1 = True
Call CDdoor(\"set CDAudio door open\", 0, 0, 0)
End Sub
Private Sub Command2_Click()
关闭光驱
state1 = False
Call CDdoor(\"set CDAudio door closed\", 0, 0, 0)
End Sub
Private Sub Command3_Click()
End
End Sub
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
Dim state1 As Boolean
Private Sub Command1_Click()
打开光驱
state1 = True
Call CDdoor(\"set CDAudio door open\", 0, 0, 0)
End Sub
Private Sub Command2_Click()
关闭光驱
state1 = False
Call CDdoor(\"set CDAudio door closed\", 0, 0, 0)
End Sub
Private Sub Command3_Click()
End
End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : 31767678dvd.rar 列表 打开光驱\打开光驱.frm 打开光驱\打开光驱.vbp 打开光驱\打开光驱.vbw 打开光驱\Cdrom打开光驱控件.ocx 打开光驱