Il Controllo di multimedia di Microsoft , o MMControl , è uno strumento di Visual Basic che riproduce i file multimediali . Non troverete MMControl ad essere uno degli strumenti di default nella vostra cassetta degli attrezzi , ma è possibile aggiungerlo alla vostra lista dei comandi con l'elenco dei componenti . È possibile aggiungere MMControl in modo da poter integrare i file audio o video al progetto . Tuttavia, MMControl accetta solo un file alla volta , quindi se si vuole creare il proprio lettore MP3 , è necessario utilizzare un array per memorizzare la lista delle tracce . Istruzioni
1
Aprire un progetto di Visual Basic . Fare clic su "Progetto " dal menu , e selezionare " Componenti ". Scorrere fino a " Microsoft Multimedia Control 6.0 , " e fare doppio clic su di esso per aggiungere una casella di controllo per la selezione. Fare clic su " OK" per chiudere la finestra dei componenti . Questo aggiunge MMControl alla casella degli strumenti .
2
doppio clic sullo strumento MMControl nella casella degli strumenti per aggiungere uno al form. Fare clic e trascinare il controllo a un punto della maschera in cui ne avete bisogno .
3
Aprire la finestra del codice . Digitare " Dim tracklist ( 4) As String " in alto . Questo creerà un array che conterrà cinque brani (numerati da zero a quattro) . Tipo " Dim tracknumber As Integer " per creare una variabile contatore .
4
Aprire la funzione " Form_Load ( ) " . Tipo " tracklist ( 0 ) = percorso_file " per caricare la vostra prima traccia nella matrice, dove " percorso_file " è la posizione attuale del file MP3 sul vostro computer . Farlo di nuovo per " track ( List ( 1 ) " funzione
5
Tipo " MMControl1.Command = " Apri " " nel " Form_Load ( ) " per aprire a " tracklist ( 4) . " il dispositivo quando il programma si avvia . Tipo " tracknumber = 0 " nella riga successiva e " MMControl1.FileName = tracklist ( numero di traccia ) " sulla linea dopo che . Tipo " MMControl.Command = " Play " nella riga finale nella funzione .
6
Aprire la funzione " Form_Unload " e digitare " MMControl.Command = " Chiudi " " per fermare il controllo quando il programma termina .
7
Aprire il . funzione " MMControl1_NextClick " digitare le seguenti righe :
MMControl1.Command = "Stop "
tracknumber = 4 Poi
tracknumber = 0
Else
tracknumber = tracknumber + 1
End If
MMControl1.FileName = lista ( numero di traccia ) per
MMControl1.Command
= "Apri" < p > MMControl1.Command = "Play "
8
Aprire la funzione " MMControl1_PrevClick " Digitare le seguenti righe : .
MMControl1.Command = " stop"
Se il numero di traccia = 0 Then
tracknumber = 4
Else
tracknumber = numero di traccia - 1
End If
MMControl1.FileName = lista ( numero di traccia ) per
MMControl1.Command = " Apri"
MMControl1.Command
= "Play " Pagina 9
Premere " F5 " per avviare il programma e ascoltare i vostri file MP3 .