ouvrir lecteur cd avec visual basic.netRésolu

Question

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 :

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

cs_MasterHack · Accepted Answer

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

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

Ouvrir lecteur cd avec visual basic.net

1 réponse

Discussions similaires