Hi folks,
Ich habe W2K und VB6 und baue mir gerade einen Explorer mit special features. Ich bin auf der Suche nach VB6-Code, mit Hilfe dessen ich die Lade meines CD-Drives öffnen UND schliessen kann. Ausserdem soll der Code es möglich machen, das CD-Drive auszuwählen, denn ich habe derer 2. mciSendString und winmm.dll haben sich nicht bewährt. Andere Vorschläge ?
Many Thanks in advance
Sovereign Sylvia
TheVomit 
Sovereign Sylvia „Suche: VB6-Code zum Öffnen und Schliessen der CD-Drive Doors“
Option Explicit
#If Win16 Then '16 Bit
Declare Function mciExecute Lib "MMSystem" (ByVal _
lpstrCommand As String) As Integer
#ElseIf Win32 Then '32 Bit
Private Declare Function mciExecute Lib "winmm.dll" (ByVal _
lpstrCommand As String) As Long
#End If
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Label1.ForeColor = &H8000&
Label1.Caption = "Schublade wird geöffnet"
DoEvents
Screen.MousePointer = 13
Command1(0).Visible = False
mciExecute "Set CDaudio door open" 'Schublade öffnen
Screen.MousePointer = 0
Label1.ForeColor = &H80000012
Label1.Caption = "Schublade ist offen"
Case Else
Label1.ForeColor = &HC0&
Label1.Caption = "Schublade wird geschlossen"
DoEvents
Screen.MousePointer = 13
Command1(0).Visible = True
mciExecute "Set CDaudio door closed" 'Schublade schließen
Screen.MousePointer = 0
Label1.ForeColor = &H80000012
Label1.Caption = "Schublade ist geschlossen"
End Select
End Sub
Ist geklaut von http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0004.shtml, ich habe es nur ergoogelt und kann nicht viel VB... ;))
Grüße
Martin
