title image


Smiley Re: CD-ROM öffnen und schließen mit VB6
Du brauchst diesen Code:Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As LongPrivate Sub Dosenhalter_Ausfahren(ByVal Ausfahren As Boolean)Select Case AusfahrenCase True Call mciExecute("Set CDaudio door open")Case False Call mciExecute("Set CDaudio door closed")Case ElseEnd SelectEnd SubUnd so geht's:Dosenhalter_Ausfahren True 'ÖffnenDosenhalter_Ausfahren False 'Schließen
Vielen Dank für eure Hilfe! Gruss Cornelia

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: