OUVRIR LE CD SUR UN BOUTON (TOUCHE DROITE SUE LE CD DANS LA BARRE DE TACHE )

Signaler
Messages postés
23
Date d'inscription
dimanche 10 mars 2002
Statut
Membre
Dernière intervention
1 août 2002
-
Messages postés
458
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009
-
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/2978-ouvrir-le-cd-sur-un-bouton-touche-droite-sue-le-cd-dans-la-barre-de-tache

Messages postés
458
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009

Super ton truc seulement tu devrais rajouté le fait qu'il peut y avoir un autre lecteur CD ou DVD.
Messages postés
22
Date d'inscription
vendredi 13 octobre 2000
Statut
Membre
Dernière intervention
26 octobre 2002

je ne vois pas a koi sert ton timer
ton programme serais deja plus compéhensible comme ca concernant le clik sur le bouton

Private Sub Command1_Click()

If Command1.Caption = "fermer le CD" Then
Dim lngrep2 As Long, sm2 As String
lngrep2 = mciSendString("set CDAudio door closed", sm2, 127, 0)
Command1.Caption = "ouvrir le CD"
Else
Dim lngrep As Long, sm As String
lngrep = mciSendString("set CDAudio door open", sm, 127, 0)
Command1.Caption = "fermer le CD"
End If
End Sub
Messages postés
23
Date d'inscription
dimanche 10 mars 2002
Statut
Membre
Dernière intervention
1 août 2002

Et bien bravo !

POur un débutant, tu te débrouille bien !
MaXell