تحية إلى خبراء ومبدعي منتدى الفريق العربي للبرمجة :
كيف أستطيع أن أضع محركات الأقراص المضغوطة فقط في (Combo Box) وأتحكم بفتح وإغلاق السواقة المحددة كما في الصورة .
شــــــكـــــــــراً لـــكــــــــم .
محركات الأقراص المضغوطة
مغلق
الكود بسيط جدا اخى
يتم وضع ذلك فى منطقة التصريحات
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal
وذلك لفتح السواقة ضع هذا الكود فى الكوماند الاول
Private Sub Command1_Click()
l = mciSendString("set cdaudio door open", 0, 0, 0)
End Sub
وهذا فى الثانى لغلق السى دى
Private Sub Command1_Click()
l = mciSendString("set cdaudio door open", 0, 0, 0)
End Sub
تحياتى
من مواضيعى بالمنتدى
برنامج لنقل الملفات عاى الجهاز
lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
مبارك لشعب تونس 
شكراً اخي على الإجابة ولكن هذا الكود لايصلح سوى لمحرك اقراص مضغوطة واحد وهو الإفتراضي في الجهاز انا عندي في الجهاز اكثر من محرك اقراص مضغوطة كيف استطيع التبديل بينهم
هذا الموضوع مغلق.