فيجول بيسك
بسم الله الرحمن الرحيم
مرحبا بك عزيزي الزائر. المرجوا منك أن تعرّف بنفسك و تدخل المنتدى معنا. إن لم يكن لديك حساب بعد, نتشرف بدعوتك لإنشائه.


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

شاطر | 
 

 لفتح وأغلاق محرك الأقراص الليزيرية cd-rom

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


المساهمات : 26
تاريخ التسجيل : 26/02/2011

مُساهمةموضوع: لفتح وأغلاق محرك الأقراص الليزيرية cd-rom   الخميس مارس 24, 2011 8:22 am

لفتح وأغلاق محرك الأقراص الليزيرية cd-rom



اضف زرين الى الفورم Command1 , و Command2
في الكابشن "Caption" للكوماند 1 اكتب " فتح " وفي الكوماند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

ضع الكود التالي في زر Command1

الكود:

OpenCDDriveDoor (True)
ضع الكود التالي في زر Command2
الكود:

OpenCDDriveDoor (False)

تحميل المثال:

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://visualbasic.alamontada.com
 
لفتح وأغلاق محرك الأقراص الليزيرية cd-rom
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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