یک سوال

[abaskh]

من عضو جدید سایت هستم و در شروع کار از دوستان سوالی درباره VB داشتم و آن اینکه چگونه میتوان دکمه ای در نوار ابزار فرم ایجاد که CD را Eject کند. این مسئله در امتحانی که به تازگی داده ام مطرح شده است . متشکرم

[aghel110]

با سلام
برای این کار 2 دگمه به نامهای
cmdOpenCdrom
cmdCloseCdrom
در فرم قرار بده و از dllزیر برای کارت استفاده کن
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
این dll را در بالای فرم بنویس و در بین
کد دکمه که برای باز کردن سی دی رام
قرار داده ای دستور زیر را بنویس
dim sendstr as string
SendStr = mciSendString("Set cdaudio door open", ReturnStr, 0, 0)
و کد زیر را برای دگمه بستن سی دی بنوسی
dim sendstr as string
SendStr = mciSendString("Set cdaudio door closed", ReturnStr, 0, 0)
سپس برنامه را اجرا کن و
حالشو ببر

در کارها به خدا توکل کن

[abaskh]

با عرض سلام خدمت دوست عزیز
از راهنمایی شما بسیار متشکرم
مشکل بزرگی برای من حل کردید