Ouvrir et refermer lecteur de cd-rom
Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 584 fois - Téléchargée 36 fois
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
programme fonctionnement à merveille en vb-
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
- Ouvrir et refermer lecteur de cd-rom
- Ouvrir les lecteurs de cd-roms en vbscript - Codes sources - Visual Basic / VB.NET (VBScript)
- Visual Basic / VB.NET : Vbs - detecter, ouvrir, fermer les lecteurs de cd - CodeS SourceS - Guide
- Visual Basic / VB.NET : Ouvrir et fermer un lecteur cd-rom - CodeS SourceS - Guide
- Visual Basic / VB.NET : Ouvrir et fermer le lecteur cd-rom ou dvd - CodeS SourceS - Guide
- Javascript : Ouvrir les lecteurs cd-rom et graveur - CodeS SourceS - Guide
Commentaires
merci
ma source ici : http://www.vbfrance.com/article.aspx?ID=3076
je n'ai jamais eu de prob pour ouvrir ni fermerle lecteur cd.
@+
+ + + !!
je l'ai fait en javascript
mais en vb j'avais jamais trouver y a une autre soluce :
avec un form 2 boutons :
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub ouvrir_Click()
ret = mciSendString("Set cdaudio door Open wait", vbNullChar, 0, 0)
End Sub
Private Sub fermer_Click()
ret = mciSendString("Set cdaudio door closed wait", vbNullChar, 0, 0)
End Sub
voila !
a+
http://www.vbfrance.com/article.aspx?ID=3076
si mes souvenir sont bon il detecte si le lecteur est prêt ou non.
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.