CD-ROM Tray

Mungkin pernah ketemu masalah dalam membuat aplikasi VB untuk membuka CD-ROM secara otomatis? Ini solusinya:

Buat sebuah module, dan masukkan code ini di dalamnya :

Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long)

Untuk membuka CD-ROM, gunakan method ini :

Sub OpenCDTray()
    mciSendStringA "Set CDAudio Door Open", 0&, 0, 0
End Sub

Dan untuk menutup CD-ROM secara otomatis, gunakan :

Sub CloseCDTray()
    mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0
End Sub

Selamat mencoba ^^

Last edited by StevenLuck (2009-07-31 12:35:24)