文件名称:dvd
-
所属分类:
- 标签属性:
- 上传时间: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
(系统自动生成,下载前可以参看下载内容)
下载文件列表
打开光驱/打开光驱.frm
打开光驱/打开光驱.vbp
打开光驱/打开光驱.vbw
打开光驱/Cdrom打开光驱控件.ocx
打开光驱
www.dssz.com.txt
打开光驱/打开光驱.vbp
打开光驱/打开光驱.vbw
打开光驱/Cdrom打开光驱控件.ocx
打开光驱
www.dssz.com.txt
本网站为编程资源及源代码搜集、介绍的搜索网站,版权归原作者所有! 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.