vb,laufwerk öffnen

Dieses Thema im Forum "Programmieren" wurde erstellt von rapmaster, 11. Januar 2004.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. rapmaster

    rapmaster Halbes Gigabyte

    Registriert seit:
    21. Juli 2002
    Beiträge:
    5.181
    wie mache ich das ?

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

    Sub OpenTheDoor()
    'Laufwerkstür öffnen
    mciExecute "Set CDaudio door open"
    End Sub

    Sub CloseTheDoor()
    'Laufwerkstür schließen
    mciExecute "Set CDaudio door closed"
    End Sub

    geht nicht
     
  2. Progmeister

    Progmeister Kbyte

    Registriert seit:
    13. August 2002
    Beiträge:
    161
    und ich hab am Anfang das gleiche geschieben was bei dir bereits stand..... halb idiot :-)
     
  3. rapmaster

    rapmaster Halbes Gigabyte

    Registriert seit:
    21. Juli 2002
    Beiträge:
    5.181
    thx
    ich weiß nun wo mein problem liegt
    ich hab alles in form load reingeschrieben, ich idiot...
     
  4. Progmeister

    Progmeister Kbyte

    Registriert seit:
    13. August 2002
    Beiträge:
    161
    so gehts..

    'zunächst die benötigte API-Deklaration
    Private Declare Function mciExecute Lib "winmm.dll" _
    (ByVal lpstrCommand As String) As Long

    CD-Laufwerk öffnen

    'CDROM-Laufwerk öffnen
    Public Sub CDOpen()
    mciExecute "Set CDaudio door open"
    End Sub

    CD-Laufwerk schliessen

    'CDROM-Laufwerk schliessen
    Public Sub CDClose()
    mciExecute "Set CDaudio door closed"
    End Sub

    'Open
    Private Sub Command1_Click()
    CDOpen
    End Sub

    'Close
    Private Sub Command2_Click()
    CDClose
    End Sub

    ******************************************************
    oder der folgende Code (ist besser, so ist auch mein Programm CD Drive Tool aufgebaut)

    ' beliebiges CD-ROM Laufwerk öffnen
    Public Sub x_CDOpen(Optional CDDrive As String = "")

    Dim Buffer As String * 255
    Dim DriveType As Long

    ' Wenn Laufwerksbuchstabe angegeben, dann prüfen
    ' ob es sich um ein CD-Laufwerk handelt
    If CDDrive <> "" Then
    DriveType = GetDriveType(CDDrive)
    If DriveType <> DRIVE_CDROM Then
    MsgBox "Laufwerk " & CDDrive & " ist kein " & _
    "CD-Laufwerk", 16
    Exit Sub
    End If

    ' CD-Laufwrek öffnen
    mciSendString "Open " & CDDrive & _
    " Type cdaudio Alias cd", Buffer, 255, 0
    mciSendString "set cd door open", 0&, 0, 0
    mciSendString "close cd", 0&, 0, 0

    ' keine Laufwerksangabe -> Standard CDROM-Laufwerk
    ' öffnen
    Else
    mciSendString "set cdaudio door open", 0&, 0, 0
    End If
    End Sub

    ' beliebiges CD-ROM Laufwerk schliessen
    Public Sub x_CDClose(Optional CDDrive As String = "")

    Dim Buffer As String * 255
    Dim DriveType As Long

    ' Wenn Laufwerksbuchstabe angegeben, dann prüfen
    ' ob es sich um ein CD-Laufwerk handelt
    If CDDrive <> "" Then
    DriveType = GetDriveType(CDDrive)
    If DriveType <> DRIVE_CDROM Then
    MsgBox "Laufwerk " & CDDrive & " ist kein " & _
    "CD-Laufwerk", 16
    Exit Sub
    End If

    ' CD-Laufwrek schliessen
    mciSendString "Open " & CDDrive & _
    " Type cdaudio Alias cd", Buffer, 255, 0
    mciSendString "set cd door closed", 0&, 0, 0
    mciSendString "close cd", 0&, 0, 0

    ' keine Laufwerksangabe -> Standard CDROM-Laufwerk
    ' schliessen
    Else
    mciSendString "set cdaudio door closed", 0&, 0, 0
    End If
    End Sub

    ' CD-Laufwerk öffnen
    Private Sub Command1_Click()
    x_CDOpen Text1.Text
    End Sub

    ' CD-Laufwerk schliessen
    Private Sub Command2_Click()
    x_CDClose Text1.Text
    End Sub
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen