Microsoft Multimedia Control, eller MMControl , er et Visual Basic- verktøy som spiller mediefiler . Du vil ikke finne MMControl å være en av de standard verktøy i verktøykassen din , men du kan legge den til i listen over kontroller med listen Komponenter . Du kan legge MMControl slik at du kan integrere lyd-eller videofiler i prosjektet. Imidlertid aksepterer MMControl bare én fil om gangen , så hvis du vil lage din egen MP3-spiller, må du bruke en matrise for å lagre spillelisten . Instruksjoner
en

Åpne et Visual Basic-prosjekt . Klikk på " Project" fra menyen , og velg " Components ". Bla ned til " Microsoft Multimediekontrolltaster 6,0 ", og dobbeltklikk på den for å legge til en avmerkingsboks til valg . Klikk " OK " for å lukke Components vinduet. Dette legger MMControl til verktøykassen.
2

Dobbeltklikk på MMControl verktøy i verktøykassen for å legge en til skjemaet. Klikk og dra kontrollen til et punkt i skjemaet der du trenger det .
3

Åpne koden vinduet. Skriv " Dim Tracklist ( 4 ) As String " på toppen. Dette vil skape en matrise som vil holde fem låter (nummerert fra null til fire) . Type " Dim trackNumber As Integer " for å lage en teller variabel .
4

Åpne " Form_Load ( ) "-funksjonen . Type " Tracklist ( 0 ) = Filbane " for å laste første spor i arrayet , der " Filbane " er den faktiske plasseringen av din MP3-fil på datamaskinen din . Gjøre dette igjen for " track ( List ( 1 ) " til " tracklist ( 4 ) . "
5

Type " MMControl1.Command = " Åpne " " i " Form_Load ( ) "-funksjonen for å åpne enheten når programmet starter . Type " trackNumber = 0 " på neste linje og " MMControl1.FileName = Tracklist ( trackNumber ) " på linjen etter det. Type " MMControl.Command = " Play " på den siste linjen i funksjonen .
6

Åpne " Form_Unload "-funksjonen , og skriv " MMControl.Command = " Lukk " " for å stoppe kontrollen når programmet avsluttes.
7

Åpne ». MMControl1_NextClick "-funksjonen Skriv inn følgende linjer :

MMControl1.Command = "Stopp "
p Hvis trackNumber = 4 Da

trackNumber = 0

Else

trackNumber = trackNumber + 1

End If

MMControl1.FileName = liste ( trackNumber )

MMControl1.Command = "Åpne"
< p> MMControl1.Command = "Play"
8

Åpne " MMControl1_PrevClick "-funksjonen Skriv inn følgende linjer : .

MMControl1.Command = "Stopp "

Hvis trackNumber = 0 Then

trackNumber = 4

Else

trackNumber = trackNumber - en

End If

MMControl1.FileName = liste ( trackNumber )

MMControl1.Command = "Open"

MMControl1.Command = "Play"
9

Trykk " F5 " for å starte programmet og lytte til din MP3.