21-09-12, 03:14 PM
في التصريحات العامة
في الزر " فتح السواقة "
في الزر " غلق السواقة
PHP كود :
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
PHP كود :
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
في الزر " فتح السواقة "
PHP كود :
Private Sub Command1_Click()
OpenCDDriveDoor (True) 'فتح
End Sub
في الزر " غلق السواقة
PHP كود :
Private Sub Command2_Click()
OpenCDDriveDoor (False) 'اغلاق
End Sub