请问
Call CDdoor("set CDAudio door closed", 0, 0, 0)
后面三个0是什么意思?
Call CDdoor("set CDAudio door closed", 0, 0, 0)
后面三个0是什么意思?
解决方案 »
- 关于拷贝文件的实现
- 一个很难的考题???高手请进
- 怎样判断已知的外部ip地址是不是本身呢。
- 檢測“Outlook Expre..是否有新郵件!!!
- 系统托盘????????????
- 再请教几道计算机过级的题?
- 如果两个控件重叠在一起了,有什么属性可以设置哪个控件在上边,另一个控件在下边吗?
- 谁知道vb6.0打开一个文件时,出现非法操作是怎么一回事.
- crystal.crysta;report的注册码?
- 请问各位大哥,大姐,大妹,大弟,我有个DataGird, 用 ADODB.Recordset和它连接,我如何得到当前我选中的那一条记录?
- 如何对已编写好的.vbs代码进行加密?最好能写出加密的源代码?
- 为什么会提示"不可识别的数据格式xxxxxxxxxx\abc.mdb
'说明: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 BooleanPrivate 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 SubPrivate Sub Form_Load()
CDOpen = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub