Discussion :

[matt_dev]

Salut !

Existe-t-il en visual basic une commande permettant de fermer le lecteur de cd-rom ?

Merci d'avance.

[sovo]

jette un coup d'oeil ici : ejecter un CD

[leroissejp]

Bonsoir,
Essaie ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
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
Dim ret
 
Private Sub cmdOuvrir_Click()
   ret = mciSendString("Set cdaudio door Open wait", vbNullChar, 0, 0)
End Sub
 
Private Sub cmdFermer_Click()
   ret = mciSendString("Set cdaudio door closed wait", vbNullChar, 0, 0)
End Sub

jpleroisse

[avigeilpro]

Ou encore, si tu n'as pas envie de taper le code, j'ai créer un module qui ouvre ou ferme le lecteur cd (module: OCDoor). Va voir ici :
http://www.geocities.com/avigeilpro/

[matt_dev]

Merci beaucoup !

[Theocourant]

Bonjour,

Pensez au Tag quand les informations transmises résolvent vos problèmes.

Merci

Théo