Microsoft Multimedia Control eller MMControl , er et Visual Basic værktøj, der spiller mediefiler. Du vil ikke finde MMControl at være en af standard værktøjer i din værktøjskasse , men du kan tilføje det til din liste over knapperne med listen Komponenter . Du kan tilføje MMControl , så du kan integrere lyd-eller videofiler til dit projekt. Men MMControl accepterer kun én fil ad gangen, så hvis du ønsker at oprette din egen MP3-afspiller, skal du bruge et array til at gemme dit spor listen. Instruktioner
1
Åbn en Visual Basic-projekt . Klik på " Project" fra menuen, og vælg " Components ". Rul ned til " Microsoft Multimediekontroltaster 6.0 ", og dobbeltklik på den for at tilføje et afkrydsningsfelt til markeringen. Klik på "OK " for at lukke Komponenter vinduet. Dette tilføjer MMControl til din værktøjskasse .
2
Dobbeltklik på MMControl i værktøjskassen for at tilføje en til din formular . Klik og træk kontrollen til et punkt på den formular , hvor du har brug for det .
3
Åbn koden vinduet. Skriv " Dim Tracklist (4) As String " øverst . Dette vil skabe et array , der vil holde fem numre (nummereret nul til fire) . Type " Dim Spornummer As Integer " for at oprette en tæller variabel.
4
Åbn " Form_Load ()" funktionen . Type " Tracklist (0) = file_path " for at indlæse dit første spor ind i dit array, hvor " file_path " er den faktiske placering af din MP3- fil på din computer . Gøre dette igen for " spor ( List (1) " til " Tracklist (4) . "
5
Type " MMControl1.Command = " Åbn " " i " Form_Load ()" funktionen til at åbne enheden, når programmet starter . Type " Spornummer = 0" på den næste linje og " MMControl1.FileName = Tracklist ( Spornummer )" på linjen efter det. Type " MMControl.Command = " Play " på den sidste linje i funktionen .
6
Åbn " Form_Unload "-funktionen , og skriv " MMControl.Command = " Luk " " for at stoppe kontrollen, når dit program slutter.
7
Åben ". MMControl1_NextClick "-funktion Skriv følgende linjer :
MMControl1.Command = "Stop "
p Hvis Spornummer = 4 Så
Spornummer = 0
Else
Spornummer = Spornummer + 1
End If
MMControl1.FileName = listen ( Spornummer )
MMControl1.Command = "Åbn "
< p> MMControl1.Command = "Play"
8
Åbn " MMControl1_PrevClick "-funktionen Skriv følgende linjer : .
MMControl1.Command = "Stop "
Hvis Spornummer = 0 Then
Spornummer = 4 fotos
Else
Spornummer = Spornummer - 1
End If
MMControl1.FileName = listen ( Spornummer )
MMControl1.Command = "Åbn "
MMControl1.Command = "Play"
9
Tryk på " F5 " for at starte dit program og lyt til dine MP3'er .