Hvordan bruke MMControl i Visual Basic

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

Bruksanvisning

1 Åpne et Visual Basic-prosjekt. Klikk på "Project" fra menyen og velg "Komponenter". Bla ned til "Microsoft Multimedia kontroll 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 din form. Klikk og dra kontrollen til et punkt på skjemaet der du trenger det.

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

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

5 Skriv "MMControl1.Command =" Åpne "" i "Form_Load ()" -funksjonen for å åpne enheten når programmet starter. Skriv "trackNumber = 0" på neste linje og "MMControl1.FileName = tracklist (trackNumber)" på linjen etter det. Skriv "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" -funksjon. Skriv inn følgende linjer:

MMControl1.Command = "Stop"

Hvis trackNumber = 4 Da

trackNumber = 0

Ellers

trackNumber = trackNumber + 1

Slutt om

MMControl1.FileName = liste (trackNumber)

MMControl1.Command = "Open"

MMControl1.Command = "Spill"

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

MMControl1.Command = "Stop"

Hvis trackNumber = 0 Then

trackNumber = 4

Ellers

trackNumber = trackNumber - 1

Slutt om

MMControl1.FileName = liste (trackNumber)

MMControl1.Command = "Open"

MMControl1.Command = "Spill"

9 Trykk "F5" for å starte programmet og lytte til dine MP3-filer.