عبسي الحمديني
2011-09-13, 06:39 PM
الكود بسيط جدا ويعتمد على مكتبة موجودة بالويندوز
اسمها
winmm.dll
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
Public Sub OpenCDDriveDoor(ByVal State As Boolean)
If State = True Then
Call mciSendString("Set CDAudio Door Open" , 0& , 0& , 0&)
Else
Call mciSendString("Set CDAudio Door Closed" , 0& , 0& , 0&)
End If
End Sub
Private Sub Command1_Click()
OpenCDDriveDoor (True)
End Sub
Private Sub Command2_Click()
OpenCDDriveDoor (False)
End Sub
انا شخصيا جربت الكود مية مية
لو في احد يقدر يختصر الكود ياريت ايساعدني
اسمها
winmm.dll
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
Public Sub OpenCDDriveDoor(ByVal State As Boolean)
If State = True Then
Call mciSendString("Set CDAudio Door Open" , 0& , 0& , 0&)
Else
Call mciSendString("Set CDAudio Door Closed" , 0& , 0& , 0&)
End If
End Sub
Private Sub Command1_Click()
OpenCDDriveDoor (True)
End Sub
Private Sub Command2_Click()
OpenCDDriveDoor (False)
End Sub
انا شخصيا جربت الكود مية مية
لو في احد يقدر يختصر الكود ياريت ايساعدني