CD-Wiedergabe starten und stoppen Mit einer einzigen Anweisung lässt sich die CD-Wiedergabe starten und auch wieder stoppen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  9.821
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit Hilfe der mciExecute Funktion aus dem Windows-API lässt sich die CD-Wiedergabe mit nur einer einzigen Anweisung starten und stoppen:

' benötigte API-Deklaration
Private Declare Function mciExecute Lib "winmm.dll" ( _
  ByVal lpstrCommand As String) As Integer

CD-Wiedergabe starten

' Wiedergabe starten
Public Sub CDPlay()
  mciExecute "play CDaudio"
End Sub

CD-Wiedergabe stoppen

' Wiedergabe stoppen
Public Sub CDStop()
  mciExecute "stop CDaudio"
End Sub

Um den Tipp auszuprobieren erstellen Sie ein neues Projekt und plazieren auf der Form zwei Schaltflächen (Button1 und Button2). "Beschriften" Sie die Schaltflächen mit "Play" und "Stop".

Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
 
  ' CD-Wiedergabe starten
  CDPlay()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button2.Click
 
  ' CD-Wiedergabe stoppen
  CDStop()
End Sub

Siehe auch Tipp:  CD-Laufwerk öffnen und schließen