Code - Einbau :-)
09.08.2004 10:57:49
Ralf
ich habe hier einen Code ( VBA - Beispiele
Text Index 154001 ) und bekomme ihn leider
nicht zum Laufen. Es geht um das Öffnen / Schliessen des CD -
Laufwerks.
Kann mir bitte jemand sagen was ich genau damit tun
muß ?
StandardModule: basMain
Private Declare
Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long
Sub CD_oeffnen()
Call mciExecute("Set CDaudio door open")
End Sub
Sub CD_schliessen ()
Call mciExecute ("Set CDaudio door closed")
End Sub
Bin für jeden Tipp dankbar
Gruß
Ralf
Anzeige