بناء على هذا الفيديو ورأيت على شبكة الانترنت اليوم قررت نشر هذا آخر بسيط حول كيفية القيام بذلك، من خلال برنامج في Visual Basic. الصافي، أن باب القرص المضغوط لفتح وإغلاق.
لتشغيل المثال نحن بحاجة فقط شكل واحد واثنين من الأزرار (الافتتاحية) كما هو مبين في الصورة:

والبرمجية التالية:
الجمهور الفئة Form1 أعلن وظيفة mciSendString ليب "winmm.dll" الاسم المستعار "mciSendStringA" _ (LpCommandString الأساسية ByVal كما lpReturnString، سلسلة الأساسية ByVal كسلسلة، _ الأساسية ByVal كما hwndCallback، طويل الأساسية ByVal طالما) طالما UReturnLength خاصة الفرعية Button1_Click (الأساسية ByVal مرسل بواسطة البريد الالكتروني System.Object الأساسية ByVal، كما System.EventArgs) يعالج Button1.Click AbrirCDROM () نهاية الفرعية خاصة Button2_Click الفرعية (الأساسية ByVal مرسل بواسطة البريد الالكتروني System.Object الأساسية ByVal، كما System.EventArgs) مقابض Button2.Click cerrarCDROM () نهاية الفرعية AbrirCDROM العامة الفرعية () mciSendString ("باب CDAudio مجموعة مفتوحة"، ""، 0، 0) نهاية الفرعية CerrarCDROM العامة الفرعية () mciSendString ("مجموعة CDAudio الباب المغلق"، ""، 0، 0) نهاية الفرعية نهاية الدرجة
جاهزة! أن يتمتع بها، وإذا كان لديك طفل ... لوضع رمز داخل حلقة والحصول على الحبل.
معلومات Bitacoras.com ...
معدل في Bitacoras.com: مستندة على هذا الفيديو رأيت على شبكة الانترنت اليوم قررت نشر هذا العام بسيطة حول كيفية القيام بذلك، من خلال برنامج في صافي البصرية الأساسية، وذلك من باب القرص المضغوط لفتح وإغلاق. لsimpl سبيل المثال .....
معرفة ما اذا كنت أنام جيدا.
التحيات
معلومات Bitacoras.com ...
معدل في Bitacoras.com: بناء على ما رأيت اليوم فيديو على شبكة الانترنت قررت نشر هذا آخر بسيط حول كيفية القيام بذلك، من خلال برنامج في Visual Basic صافي، أن باب مؤتمر نزع السلاح لفتح وإغلاق. لتشغيل سيم سبيل المثال .....
مرحبا، لقد وجدت برنامج جيد جدا، وأود أن استخدامها في Visual Basic 2005.
يمكنك ان تكتب في هذه اللغة؟ شكرا جزيلا. هذا هو البريد الإلكتروني الذي تقوم بإرسال الرد، parisparis2@hotmail.es
مرحبا:
يمكنك استخدام هذا الرمز نفسه في صافي البصرية. الأساسية عام 2005.
حظ
فضول حاولت ذلك في عام 2005 صافي البصرية
أنا تجريد خطأ أو أي شيء، ولكن عند تشغيله على الزر فتح، فإنه يفتح لكن رميات رسالة مرئية على النحو التالي:
دعوة إلى وظيفة PInvoke 'WindowsApplication1.Form1! WindowsApplication1 :: mciSendString "غير متوازن والمكدس. وهذا هو الأرجح لأن تدار
MDAs خطأ .. ماذا يعني ذلك؟
شكرا
حسنا أنا جربت ذلك في vb.net 2005 ويعمل كل شيء تماما ... وأود أن تشارك مع بعض الأمثلة التي لدي ...
-----
كما بعثت لي نفس الخطأ والفرس، وهذا ما سوف؟
في البداية لم أفهم ذلك، ولكن رؤيته veses عدة استطيع ان افهم قليلا. ولكن إذا فهم أنه otoniel
هذا برنامج لطيف قليلا!
مرحبا صديق لي استخدام هذا الرمز يعمل تماما لي:
الجمهور الفئة Form1
خاصة بتعريف وظيفة mciSendString ليب "winmm.dll" الاسم المستعار "mciSendStringA" (الأساسية ByVal lpstrCommand كما lpstrReturnString، سلسلة الأساسية ByVal كما uReturnLength، سلسلة الأساسية ByVal كما hwndCallback الأساسية ByVal صحيح، وصحيح) وصحيح
خاصة الفرعية Button1_Click (الأساسية ByVal مرسل بواسطة البريد الالكتروني System.Object الأساسية ByVal، كما System.EventArgs) يعالج a.Click
AbrirCDROM ()
a.Enabled = خطأ
c.Enabled = صحيح
نهاية الفرعية
خاصة Button2_Click الفرعية (الأساسية ByVal مرسل بواسطة البريد الالكتروني System.Object الأساسية ByVal، كما System.EventArgs) مقابض c.Click
cerrarCDROM ()
c.Enabled = خطأ
a.Enabled = صحيح
نهاية الفرعية
AbrirCDROM العامة الفرعية ()
mciSendString ("باب CDAudio مجموعة مفتوحة"، ""، 0، 0)
نهاية الفرعية
CerrarCDROM العامة الفرعية ()
mciSendString ("مجموعة CDAudio الباب المغلق"، ""، 0، 0)
نهاية الفرعية
Button1_Click_1 الفرعية الخاصة (الأساسية ByVal مرسل بواسطة البريد الالكتروني System.Object الأساسية ByVal، كما System.EventArgs) مقابض Button1.Click
Application.Exit ()
نهاية الفرعية
خاصة الفرعية Form1_Load (الأساسية ByVal مرسل بواسطة البريد الالكتروني System.Object الأساسية ByVal، كما System.EventArgs) يعالج MyBase.Load
نهاية الفرعية
نهاية الدرجة
يجب أن نضيف 3 أزرار والتسمية وصورة
إلى
ج
Button1
عشيق هو فتح قرص مدمج
ج الزر لإغلاق
button1 هو للخروج من تطبيق
التسمية هو اختياري
صور اختيارية
شكرا jrchico