Ouvrir le cd sur un bouton (touche droite sue le cd dans la barre de tache )

Soyez le premier à donner votre avis sur cette source.

Vue 3 486 fois - Téléchargée 428 fois

Description

pour ouvrir et fermer le CD

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
463
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

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.