درس كود برنامج فتح واغلاق السى دى روم

من طرف Coptic_Programmer الجمعة يوليو 03, 2009 9:31 am

أضف زرين Command و وحدة نمطية Module

إنسخ الأسطر التالية إلى المديول:

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

ضع هذه التصريحات في قسم General

Dim lngReturn As Long
Dim strReturn As Long

لفتح السواقة ضع هذا الكود في الزر الأول

lngReturn = mciSendString('set CDAudio door open', strReturn, 127, 0)

ضع هذا الكود في الزر الثاني للإغلاق:

lngReturn = mciSendString('set CDAudio door closed', strReturn, 127, 0)