Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prüfen ob CD-(Standard)Laufwerk offen oder zu ist

Prüfen ob CD-(Standard)Laufwerk offen oder zu ist
12.01.2007 20:49:36
Heiko
Hallo,
weiß jemand wie man die Prüfung einfach realisieren kann?
Damit (der Code unten) geht es ja mit 2 Button Auf und Zu. Ich würde das allerdings gerne über einen Button (Eject-Button) lösen, den ich dann auch noch (Toggle-Button o.ä.) farbig machen will (z.B. Rot=Auf und Grün=Zu).
' CD-Laufwerk öffnen ...
Private Declare

Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long

Sub CD_oeffnen()
Call mciExecute("Set CDaudio door open")
End Sub

' ... und CD-Laufwerk wieder schließen
Private Declare

Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long

Sub CD_schließen()
Call mciExecute("Set CDaudio door closed")
End Sub

Viele Grüße, Heiko

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob CD-(Standard)Laufwerk offen oder zu
12.01.2007 23:07:02
EtoPHG
Hallo Heiko,
Lege einen Togglebutton (hier als Beispiel tbCD bennant) auf Dein Blatt oder eine UF und dann dieser Code:

Option Explicit
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub tbCD_Click()
If tbCD.Caption = "Geschlossen" Then
tbCD.Caption = "Offen"
tbCD.ForeColor = &HFF&
Call mciExecute("Set CDaudio door open")
Else
tbCD.Caption = "Geschlossen"
tbCD.ForeColor = &H8000&
Call mciExecute("Set CDaudio door closed")
End If
End Sub

Gruss Hansueli
AW: Prüfen ob CD-(Standard)Laufwerk offen oder zu
13.01.2007 01:32:19
Heiko
Hallo Hansueli,
vielen Dank für Deine Hilfe !!! Klasse !
Funzt einwandfrei :-)
Gruß, Heiko
Anzeige

107 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige