Microsoft Multimedia kontroll , eller MMControl , är ett Visual Basic verktyg som spelar mediafiler . Du kommer inte hitta MMControl att vara en av de förvalda verktyg i din verktygslåda , men du kan lägga till den i din lista över kontroller med listan Komponenter . Du kan lägga MMControl så att du kan integrera ljud-eller videofiler till ditt projekt . Däremot accepterar MMControl endast en fil i taget , så om du vill skapa dina egna MP3 -spelare , måste du använda en array för att lagra din låtlista . Instruktioner
1
Öppna ett Visual Basic-projekt . Klicka på " Projekt " i menyn och välj " komponenter . " Bläddra ned till " Microsoft Multimediakontrolltangenter 6.0 , " och dubbelklicka på den för att lägga till en kryssruta i markeringen . Klicka på " OK " för att stänga Components fönstret . Detta lägger MMControl till din verktygslåda .
2
Dubbelklicka på den MMControl i verktygslådan för att lägga till en till formuläret . Klicka och dra kontrollen till en punkt på formuläret där du behöver det .
3
Öppna koden fönstret . Skriv " Dim låtlistan ( 4 ) As String " upptill . Detta kommer att skapa en array som kommer att inneha fem spår ( numrerade noll till fyra ) . Typ " Dim tracknumber As Integer " för att skapa en räknare variabel .
4
Öppna " Form_Load ( ) " -funktion . Typ " låtlista ( 0 ) = file_path " för att ladda din första spår i din samling , där " file_path " är den faktiska platsen för din MP3-fil på din dator . Gör detta igen för " track ( List ( 1 ) " till " låtlista ( 4 ) . "
5
Typ " MMControl1.Command = " Öppna " " i " Form_Load ( ) " -funktion för att öppna enheten när programmet startar . Typ " tracknumber = 0 " på nästa rad och " MMControl1.FileName = låtlista ( tracknumber ) " på raden efter det . Typ " MMControl.Command = " Play " på sista raden i funktionen .
6
Öppna " Form_Unload " -funktionen , och typ " MMControl.Command = " Stäng " " för att stoppa kontrollen när programmet avslutas .
7
Öppna . " MMControl1_NextClick " funktionen Skriv följande rader :
MMControl1.Command = " Stopp "
p Om tracknumber = 4 Då
tracknumber = 0
Else
tracknumber = tracknumber + 1
End If
MMControl1.FileName = lista ( tracknumber ) katalog
MMControl1.Command = " Öppna"
MMControl1.Command = " Play "
8
Öppna " MMControl1_PrevClick " funktionen Skriv följande rader : .
MMControl1.Command = " Stopp "
Om tracknumber = 0 Then
tracknumber = 4
Else
tracknumber = tracknumber - 1
End If
MMControl1.FileName = lista ( tracknumber ) katalog
MMControl1.Command = " Öppna"
MMControl1.Command = " Play "
9
Tryck " F5 " för att starta ditt program och lyssna på dina MP3 .
