如何用 Multimedia control 控件写光驱开关程序？

Question

它 不行的，只能用API来实现

Answer 1

试试MMControl1_EjectClick可不可以
另外mciSendString可以实现
dim sReturnString As String * 128
lRet =mciSendString("set CDAudio door open", sReturnString, 127, 0)
lRet =mciSendString("set CDAudio door closed", sReturnString, 127, 0)

Answer 2

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
    If Command1.Caption = "打开" Then
        Command1.Caption = "关闭"
        retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
    Else
        retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
        Command1.Caption = "打开"
    End If
End Sub

Answer 3

mciExecute "set CDAudio door open"
mciExecute "set CDAudio door closed"