Ouvrir lecteur cd avec visual basic.net

Résolu
Signaler
Messages postés
4
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
5 juillet 2005
-
Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
-
j'ai remarqué que ce code ne marche pas avec visual basic.net qui est ds visual studio 2003 est ce que quelqu'un pourrais me donner un code equivalant pour ouvrir un lecteur cd voici le code qui ne marche pas :
<OL>
<LI>
Set
oWMP =
CreateObject
(<VAR>"WMPlayer.OCX.7"</VAR> )
<LI>
Set
colCDROMs = oWMP.cdromCollection
<LI>
if
colCDROMs.
Count
>= 1
then

<LI>
For
i = 0 to colCDROMs.
Count
- 1
<LI>colCDROMs.
Item
(i).Eject
<LI>
Next
<SAMP>' cdrom</SAMP>
<LI>
End
If
</LI></OL>

1 réponse

Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
2
salut,BruNews n'est pas passe par la lol,les API,non je déconne
voici ce que tu devera faire
decalre cette api juste apres Inherits System.Windows.Forms.Form :


Private
Declare
Function mciSendString
Lib "winmm.dll"
Alias "mciSendStringA" (
ByVal lpstrCommand
As
String,
ByVal lpstrReturnString
As
String,
ByVal uReturnLength
As Int32,
ByVal hwndCallback
As Int32)
As Int32

apres ds un evenement de ton choix :
mciSendString "set cdaudio door open",0,0,0 'pour ouvrir
mciSendString "set cdaudio door closed",0,0,0 'pour fermer
bye


<HR>

Life is short...Learn more
Copy Rights <> Rights to Copy
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci