منتدى عشاق البرامج

منتدى عام للبرامج والبرمجة
 
الرئيسيةالبوابةاليوميةس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 لعمل فاتح وغالق السيدي روم سهل جدا

اذهب الى الأسفل 
كاتب الموضوعرسالة
somame
Admin
Admin
avatar

المساهمات : 381
تاريخ التسجيل : 19/04/2008
العمر : 34

مُساهمةموضوع: لعمل فاتح وغالق السيدي روم سهل جدا   الثلاثاء مايو 13, 2008 2:17 pm

<span style='color:Lime'>يلزم هذا الكود :-
----------------------------------------------------------------------
1-زر كومند command button لفتح السى دى روم
2- زر كومند اخر لاغلاقه
-----------------------------------------------------------------------
-----------------------------------------
قم بنسخ و لصق الكود فى الفورم
------------------------------------------

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

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

Private Sub Command1_Click()
OpenCDDriveDoor (True)
End Sub

Private Sub Command2_Click()
OpenCDDriveDoor (False)
End Sub



---------------------------------- منقول ----------------------------------------------------

يمكن الاضافة على البرنامج بعمل زر اخر لاغلاق البرنامج (( اغلاق الفورم )) فيصبح هكذا :-


Private Sub Command3_Click()
end
msgbox "wish u good lisk with ur programm (())

End Sub
</span>
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://somame.mam9.com
 
لعمل فاتح وغالق السيدي روم سهل جدا
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى عشاق البرامج :: منتدى البرمجة-
انتقل الى: