Rubrik: Multimedia & Sound · Audio | VB-Versionen: VB4, VB5, VB6 | 31.05.01 |
CD-Wiedergabe starten und stoppen Mit einer einzigen Anweisung lässt sich die CD-Wiedergabe starten und auch wieder stoppen. | ||
Autor: Dieter Otter | Bewertung: | Views: 17.130 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Erst kürzlich wurde die Frage gestellt, wie man die CD-Wiedergabe starten und auch wieder stoppen kann - ohne dabei das Multimedia-Steurelement verwenden zu müssen.
Hier die Lösung:
' zunächst die benötigte API-Deklaration Private Declare Function mciExecute Lib "winmm.dll" ( _ ByVal lpstrCommand As String) As Long
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 CommandButtons Command1 und Command2. "Beschriften" Sie die CommandButtons mit "Play" und "Stop". Im Allgemein-Teil der Form fügen Sie obigen Code ein. In den Click-Ereignisprozeduren der CommandButtons fügen Sie die Prozeduraufrufe CDPlay bzw. CDStop ein.
' Play Private Sub Command1_Click() CDPlay End Sub ' Stop Private Sub Command2_Click() CDStop End Sub
Siehe auch Tipp: CD-Laufwerk öffnen und schliessen