Die Microsoft -Multimedia-Steuerung , oder MMControl , ist ein Visual Basic -Tool, das Medien-Dateien spielt . Sie finden nicht MMControl zu einem der Standard- Tools in der Toolbox , aber Sie können es auf Ihre Liste der Steuerelemente hinzufügen mit der Liste Komponenten . Sie können so MMControl Sie Audio-oder Video-Dateien in Ihr Projekt einbinden kann . Übernimmt jedoch MMControl nur eine Datei auf einmal, so dass, wenn Sie Ihre eigenen MP3-Player erstellen möchten, müssen Sie ein Array verwenden, um Ihre Titelliste speichern. Anleitung
1
Öffnen Sie ein Visual Basic-Projekt. Klicken Sie auf "Projekt" aus dem Menü , und wählen Sie "Komponenten . " Blättern Sie nach unten zu " Microsoft Multimedia Control 6.0 ", und doppelklicken Sie darauf , um ein Kontrollkästchen zur Auswahl hinzuzufügen . Klicken Sie auf " OK ", um die Komponenten zu schließen. Dies fügt MMControl Ihren Werkzeugkasten.
2
Doppelklicken Sie auf das MMControl Werkzeug in der Toolbox, um eine zu Ihrem Formular hinzuzufügen. Klicken und ziehen Sie das Steuerelement zu einem Punkt auf dem Formular , wo Sie es . Müssen
3
Öffnen Sie das Codefenster . Geben Sie " Dim Tracklist (4 ) As String " an der Spitze. Dadurch entsteht ein Array mit fünf Titeln (nummeriert von null bis vier ) halten wird . Type " Dim TrackNumber As Integer " einen Zähler Variable zu erstellen.
4
Öffnen Sie die " Form_Load () "-Funktion . Type " Tracklist (0) = file_path " Ihre erste Spur in das Array geladen , wobei " file_path " ist die tatsächliche Lage Ihres MP3-Datei auf Ihrem Computer. Wiederholen Sie dies für " Spur ( List (1 ) " bis " Tracklist (4). "
5
Type " MMControl1.Command = " Öffnen " " in der " Form_Load () "-Funktion zu öffnen das Gerät , wenn das Programm beginnt . Type " trackNumber = 0" in der nächsten Zeile und " MMControl1.FileName = Tracklist ( trackNumber ) " auf der Linie danach. Type " MMControl.Command = " Play "auf der letzten Zeile in der Funktion .
6
Öffnen Sie die " Form_Unload "-Funktion , und geben Sie " MMControl.Command = " Close " ", um die Kontrolle zu stoppen , wenn das Programm beendet wird.
7
öffnen . " MMControl1_NextClick "-Funktion Geben Sie die folgenden Zeilen:
MMControl1.Command = "Stop"
Wenn trackNumber = 4 Dann
trackNumber = 0
Else
trackNumber = trackNumber + 1
End If
MMControl1.FileName = list ( trackNumber )
MMControl1.Command = "Öffnen"
< p> MMControl1.Command = "Play"
8
Öffnen Sie die " MMControl1_PrevClick "-Funktion Geben Sie die folgenden Zeilen: .
MMControl1.Command = "Stop"
Wenn trackNumber = 0 Then
trackNumber = 4
Else
trackNumber = trackNumber - 1 of
End If
MMControl1.FileName = Liste ( trackNumber )
MMControl1.Command = "Öffnen"
MMControl1.Command = "Play"
9
Presse "F5 ", um das Programm zu starten und hören Ihre MP3s .
