فتح وإغلاق باب القرص المضغوط

بناء على هذا الفيديو ورأيت على شبكة الانترنت اليوم قررت نشر هذا آخر بسيط حول كيفية القيام بذلك، من خلال برنامج في 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)
     نهاية الفرعية

 نهاية الدرجة

جاهزة! أن يتمتع بها، وإذا كان لديك طفل ... لوضع رمز داخل حلقة والحصول على الحبل.

14 الردود على "فتح وإغلاق باب القرص المضغوط"

  1. Bitacoras.com يقول:

    معلومات Bitacoras.com ...

    معدل في Bitacoras.com: مستندة على هذا الفيديو رأيت على شبكة الانترنت اليوم قررت نشر هذا العام بسيطة حول كيفية القيام بذلك، من خلال برنامج في صافي البصرية الأساسية، وذلك من باب القرص المضغوط لفتح وإغلاق. لsimpl سبيل المثال .....

  2. آريس يقول:

    معرفة ما اذا كنت أنام جيدا.
    التحيات

  3. Bitacoras.com يقول:

    معلومات Bitacoras.com ...

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

  4. M.altm يقول:

    مرحبا، لقد وجدت برنامج جيد جدا، وأود أن استخدامها في Visual Basic 2005.
    يمكنك ان تكتب في هذه اللغة؟ شكرا جزيلا. هذا هو البريد الإلكتروني الذي تقوم بإرسال الرد، parisparis2@hotmail.es

  5. وقال الفرس:

    فضول حاولت ذلك في عام 2005 صافي البصرية
    أنا تجريد خطأ أو أي شيء، ولكن عند تشغيله على الزر فتح، فإنه يفتح لكن رميات رسالة مرئية على النحو التالي:

    دعوة إلى وظيفة PInvoke 'WindowsApplication1.Form1! WindowsApplication1 :: mciSendString "غير متوازن والمكدس. وهذا هو الأرجح لأن تدار

    MDAs خطأ .. ماذا يعني ذلك؟

    شكرا

  6. EFRA يقول:

    حسنا أنا جربت ذلك في vb.net 2005 ويعمل كل شيء تماما ... وأود أن تشارك مع بعض الأمثلة التي لدي ...

  7. غوستافو يقول:

    كما بعثت لي نفس الخطأ والفرس، وهذا ما سوف؟

  8. كريستيان غارسيا يقول:

    في البداية لم أفهم ذلك، ولكن رؤيته veses عدة استطيع ان افهم قليلا. ولكن إذا فهم أنه otoniel

  9. اسماعيل يقول:

    هذا برنامج لطيف قليلا!

  10. jrchico يقول:

    مرحبا صديق لي استخدام هذا الرمز يعمل تماما لي:

    الجمهور الفئة 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
    نهاية الفرعية
    نهاية الدرجة

  11. jrchico يقول:

    يجب أن نضيف 3 أزرار والتسمية وصورة
    إلى
    ج
    Button1

    عشيق هو فتح قرص مدمج
    ج الزر لإغلاق
    button1 هو للخروج من تطبيق
    التسمية هو اختياري
    صور اختيارية

  12. إدواردو يقول:

    شكرا jrchico

تعليق