我是新学生，也就是刚接触VB，想用VB编写个光驱开关和检测的按钮，条件是，要Command1和Command2是叠加在一起的，也就是说，整个对话框只能看到两个按钮，（因为Command1和Command2是叠加在一起的）在就是检测光驱有没有碟片的按钮。点击Command1后（弹出光驱），这时候就能看到Command2（关闭光驱），如果不点击Command1那Command2是永远看不见的，如此循环。谢谢大家了！！向你们学习！！！

[[it] 本帖最后由 yujimin 于 2008-4-9 12:08 编辑 [/it]]

其实你只要用到一个按钮控件就OK的了。
默认的按钮文本是“弹出光驱”，点击了之后，就见按钮文本改为“关闭光驱”。反之亦然，当然，其中还要用到一个Boolean变量来判断是开还是关。

楼上的能不能把代码写出来啊！谢谢！！

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
if command1.caption="弹出光驱" then
command1.caption="关闭光驱"
Call CDdoor("set CDAudio door open", 0, 0, 0)
elseif command1.caption="关闭光驱" then
command1.caption="弹出光驱"
Call CDdoor("set CDAudio door closed", 0, 0, 0)
end if

收到的鲜花

• yujimin 于 2008-04-09 12:12 送鲜花  2朵   附言：感谢
• 论坛版主 于 2008-04-09 17:32 送鲜花  2朵  

已解决了！！呵呵！！谢谢大家了！！
这里两种都可以的！！
[bo]一个按钮的方法：[/bo]
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()
    If Not state1 Then
    '打开光驱
    state1 = True
    Call CDdoor("set CDAudio door open", 0, 0, 0)   
        Command1.Caption = "关闭"        
      Else
      '关闭光驱
      state1 = False
      Call CDdoor("set CDAudio door closed", 0, 0, 0)      
        Command1.Caption = "打开"        
     End If     
End Sub

[bo]还有就是：两个按钮的[/bo]
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()
'关闭光驱
    Command1.Visible = False
    Command2.Visible = True
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub

Private Sub Command2_Click()
'打开光驱
    Command2.Visible = False
    Command1.Visible = True
Call CDdoor("set CDAudio door open", 0, 0, 0)
End Sub

[bo]这是用VB6.0中文企业版，XP台式机下运行成功的！[/bo]
这里真好啊！！学到了很多了！真的很感谢大家！！

[[it] 本帖最后由 yujimin 于 2008-4-9 12:37 编辑 [/it]]

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
这段是什么意思啊，可不可以解释下。。。谢谢

那是定义啊！如果没有这段 这里“ Call CDdoor”，会出错提示您，编译错误，子程序或函数未定义！

[[it] 本帖最后由 yujimin 于 2008-4-9 12:41 编辑 [/it]]