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

[Smart]

[align=center]
السلام عليكم
كود فتح وغلاق السي دي روم
ضع هذا الكود في الموديل
Public 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 CloseCD()
mciSendString "Set CDAudio Door Closed"* ""* 0&* 0&
End Sub
Public Sub OpenCD()
mciSendString "Set CDAudio Door Open"* ""* 0&* 0&
End Sub
والان هذا الكود الذي يفتح السي دي روم وضعه في زر أو في المكان الذي ترغب به
mciSendString "Set CDAudio Door Open"* ""* 0&* 0&
وهذا الاغلاق
mciSendString "Set CDAudio Door Closed"* ""* 0&* 0&
و بالتوفيق[/align]

[الجريء]

الف شكر لك اخوي سمارت

الله يعطيك العافية

[Smart]

[align=center]عفوا أخي الجريء ... الله يعافيك .[/align]

[اية]

شكراً بس اخلص من البيسك اول ...

[الوان الطيف]

يعطيك ألف عافيه أخوي سمارت ..

وجاري تجربته انشاء الله .. :)