Rubrik: Multimedia & Sound · Audio | VB-Versionen: VB2005, VB2008 | 11.09.09 |
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: 9.342 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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