Ouvrir et refermer lecteur de cd-rom

Commenter

Contenu du snippet

VOICI un exemple de code source que vous pouvait faire pour ouvrir et refermer un lecteur CD
Pour réaliser l'exemple suivant il vous faut une form et un bouton click que voutt pourait masquer a la fin

Source / Exemple : 


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

Conclusion :


programme fonctionnement à merveille en vb-

A voir également

S'inscrire maintenant

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.

Du même auteur (agentTMORT)