VB LECTEUR... OUVERTURE ET FERMETURE DU LECTEUR DE CDROM

Signaler
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
-
Messages postés
2
Date d'inscription
lundi 15 mai 2006
Statut
Membre
Dernière intervention
24 juin 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/17693-vb-lecteur-ouverture-et-fermeture-du-lecteur-de-cdrom

Messages postés
2
Date d'inscription
lundi 15 mai 2006
Statut
Membre
Dernière intervention
24 juin 2006

merciiiiiiiiiiiiiiii
Messages postés
2
Date d'inscription
lundi 15 mai 2006
Statut
Membre
Dernière intervention
24 juin 2006

mais ou je trouvra le code des donns d acces
Messages postés
65
Date d'inscription
samedi 25 janvier 2003
Statut
Membre
Dernière intervention
5 novembre 2008

encor moi ->j'ai oublié un espace
RetVal = mciSendString("set CDAudio door " & strChoixAction, RString, 128, 0) '

comme ca ,ca marche mieux!
Messages postés
65
Date d'inscription
samedi 25 janvier 2003
Statut
Membre
Dernière intervention
5 novembre 2008

et pour info, voila comment j'utilise ton code :
:utilisation de constante et création de la fonction GestionCdrom (cela permet d'ecrire moins de code)

Public Const strActionFermetureCdrom As String = "closed"
Public Const strActionOuvertureCdrom As String = "Open"


Public Sub GestionCdrom(strChoixAction As String)
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
RetVal = mciSendString("set CDAudio door" & strChoixAction, RString, 128, 0) ' Pour
End Sub

@
Afficher les 6 commentaires