OUVRIR LE CD SUR UN BOUTON (TOUCHE DROITE SUE LE CD DANS LA BARRE DE TACHE )
cs_MaXell
Messages postés
23
Date d'inscription
dimanche 10 mars 2002
Statut
Membre
Dernière intervention
1 août 2002
-
8 avril 2002 à 14:43
tmcuh Messages postés 458 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 18 avril 2009 - 23 févr. 2003 à 10:50
tmcuh Messages postés 458 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 18 avril 2009 - 23 févr. 2003 à 10:50
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
https://codes-sources.commentcamarche.net/source/2978-ouvrir-le-cd-sur-un-bouton-touche-droite-sue-le-cd-dans-la-barre-de-tache
23 févr. 2003 à 10:50
9 avril 2002 à 21:14
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
8 avril 2002 à 14:43
POur un débutant, tu te débrouille bien !
MaXell