期权explicitprivate宣布cddoor库函数

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-Option ExplicitPrivate Declare Function CDdoor Lib

打开光驱
打开光驱.frm
打开光驱.vbp
打开光驱.vbw
Cdrom打开光驱控件.ocx