Visual Basic 6 - Aprire il cd-rom con un command button

Forum - Visual Basic 6 - Aprire il cd-rom con un command button

vb6 (Normal User)
Pro

Messaggi: 154
Iscritto: 10/01/2007

Postato alle 18:09
Mercoledì, 10/01/2007

Ciao a tutti, mi sono iscritto da poco ma già vi domando una mia piccola curiosità.
Allora vorrei sapere se posso far aprire il cassettino del cd-rom cliccando semplicemente un command-button.
Un grazie anticipatoa chi mi rispondera :k:

()
Newbie

Messaggi:
Iscritto:

Postato alle 18:14
Mercoledì, 10/01/2007

inserisci questo in un modulo:

Codice sorgente - presumibilmente VB.NET

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

e poi nel codice del command button inserisci:

Codice sorgente - presumibilmente Visual Basic 6

Dim lRet As Long
lRet = mciSendString("set CDAudio door open", returnstring, 127, 0)

per aprire e quest'altro per chiudere:

Codice sorgente - presumibilmente Visual Basic 6

Dim lRet As Long
lRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)