CD-Laufwerk auswählen

27/03/2008 - 19:32 von Stephan Dort | Report spam
hallo,

ich hab doch schon wieder ein problem an dem ich mir fast schon die haare
ausgerupft hab ;-)
ich hab es jetzt, dank der hilfe von hermann hinbekommen meine cd-laufwerke
in eine combobox
einzuarbeiten.
jetzt besteht mein problem darin das ich auswàhlen möchte welches laufwerk
sich öffnet. dazu hier die schnippsel:

Private Sub btn_open_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn_open.Click

For Each d In allDrives

On Error GoTo fehler

If d.DriveType = DriveType.CDRom And cmb_cd_laufwerke.Text = d.Name
Then

OpenCD()

Exit Sub

End If

Next

fehler:

MsgBox("Fehler aufgetrehten")

End Sub

'-

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

'CD-Laufwerk öffnen

Sub OpenCD()

mciExecute("Set CDaudio door open")

End Sub

'-

Ich bekomme es nicht hin das ich der sub OpenCD() einen parameter mitgebe
das sie dann auch genau das Laufwerk öffnet das ich in der combobox
ausgewàghlt habe.

kann ich da den string aus cmb_cd_laufwerk.text mitgeben? (was ich
allerdings nicht glaube) oder muß ich da die devicenummer mitgeben? wenn ja,
fàngt die auch bei null an?

hilfe hilfe

Vielen Dank schon mal im Voraus

Stephan
 

Lesen sie die antworten

#1 Armin Zingler
27/03/2008 - 20:12 | Warnen spam
"Stephan Dort" schrieb im Newsbeitrag
news:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal
lpstrCommand As String) As Long

'CD-Laufwerk öffnen

Sub OpenCD()

mciExecute("Set CDaudio door open")

End Sub

'-

Ich bekomme es nicht hin das ich der sub OpenCD() einen parameter
mitgebe das sie dann auch genau das Laufwerk öffnet das ich in der
combobox ausgewàghlt habe.

kann ich da den string aus cmb_cd_laufwerk.text mitgeben? (was ich
allerdings nicht glaube) oder muß ich da die devicenummer mitgeben?
wenn ja, fàngt die auch bei null an?



Evtl funktioniert das:
http://www.xtremevbtalk.com/showthread.php?t485
Achtung, ist andere API-Funktion, aber vielleicht hilft's weiter.

Oder hier:
http://groups.google.com/group/micr...e2efe10e18
http://groups.google.com/group/micr...051cc14029



Armin

Ähnliche fragen