باز و بسته کردن در CD-Rom تو VB.net

نقل قول:

---

نوشته شده توسط kelpasabidomb [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ما كه چيزي نفهيمديم خداييش اصلا اين كد ها كجا استفاده ميشه

---

این که کاری نداشت دوست من اینجا خدایش خوب توضیح دادن دوستان

این کد رو تو قسمت General بنویس

کد:

---

'فیلد private
Private setTrayStatus As Long
'API
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
 (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
  ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

---

بعد دوتا Button رو صفحه بساز و تو یکی این کد

کد:

---

'برای باز کردن سی دی درایو
setTrayStatus = mciSendString("Set CDAudio Door Open", CStr(0&), 0, 1)

---

و تو دکمه دیگر این کد رو وارد کن

کد:

---

'برای بستن سی دی درایو
setTrayStatus = mciSendString("set CDAudio door closed", 0, 0, 1)

---