منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود فتح وأغلاق السيدى الروم (((فيجوال بيسك 6)))) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : كود فتح وأغلاق السيدى الروم (((فيجوال بيسك 6)))) (/showthread.php?tid=4295)

كود فتح وأغلاق السيدى الروم (((فيجوال بيسك 6)))) - سانسيفا - 21-09-12

في التصريحات العامة


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 


كود فتح وأغلاق السيدى الروم (((فيجوال بيسك 6)))) - محمد الحراري - 21-09-12

مشكور جداً