Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 636 fois - Téléchargée 36 fois
Private Sub ejecter_Click() Dim variable As Variant Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMS = oWMP.cdromCollection colCDROMS.Item(0).Eject variable = MsgBox("Cliquez sur OK lorsque que le cd est insérez", vbOKCancel) If variable = 1 Then colCDROMS.Item(0).Eject ejecter.Visible = False End Sub
merci
ma source ici : http://www.vbfrance.com/article.aspx?ID=3076
je n'ai jamais eu de prob pour ouvrir ni fermerle lecteur cd.
@+
+ + + !!
je l'ai fait en javascript
mais en vb j'avais jamais trouver y a une autre soluce :
avec un form 2 boutons :
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 ouvrir_Click()
ret = mciSendString("Set cdaudio door Open wait", vbNullChar, 0, 0)
End Sub
Private Sub fermer_Click()
ret = mciSendString("Set cdaudio door closed wait", vbNullChar, 0, 0)
End Sub
voila !
a+
http://www.vbfrance.com/article.aspx?ID=3076
si mes souvenir sont bon il detecte si le lecteur est prêt ou non.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.