Eject DVD/CD-ROM Drive [ VB6 ]

โค๊ด: [Select]

Option Explicit
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
Private Sub darkOpen_Click()
    mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub
Private Sub darkClose_Click()
    mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub

จากด้านบนเป็นโค้ดที่ใช้ในการเปิด-ปิดถาดหรือ Eject CD-ROM Drive ด้วยฟังก์ชั่น mcisendstring นะครับ ..

สิ่งที่ต้องการคือ CommandButton 2 อันนะครับ ..

ตั้งชื่อว่า darkOpen กับ darkClose ครับ ..

ลองนำไปประยุกต์ใช้กันดูนะครับ ...

IT-DARK

โอว หามานาน ขอบคุณครับ  :'(