VisualBasic Snippets  

Öffnen der CD-Schublade per Programm:
 
Nettes Feature für eine Audio-Anwendung oder ein CD-Katalog-Programm etc., einfach realisierbar per API-Aufruf.

Gehen Sie dafür folgendermaßen vor:
  • Erstellen Sie ein Standard EXE-Projekt mit einem Formular (FORM1).

  • Fügen Sie in dieses Formular zwei Buttons ein (COMMAND1 & COMMAND2).

Der untenstehende Code bedarf kaum einer weiteren Erläuterung. Für die Verwendung in eigenen Projekten werden die API-Deklaration, die Konstanten Zuweisung und die Funktion tsAffengriff benötigt.

Quelltext der Anwendung:
'API-Function deklarieren
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()

    tsOpenCdFach True

End Sub

Private Sub Command2_Click()

    tsOpenCdFach False

End Sub

'Durch Aufruf dieser Funktion wird die Schublade ge÷ffnet oder geschlossen
Function tsOpenCdFach(tsOpen As Boolean)

    If tsOpen = True Then
        mciExecute "Set CDaudio door open"
    Else
        mciExecute "Set CDaudio door closed"
    End If

End Function

  Download VB6
Projekt-Quellcode
Download
Demo-Exe

© '2000 by T. Schindzielorz