De Microsoft Multimedia Controle , of MMControl , is een Visual Basic tool die mediabestanden speelt . Je zal niet MMControl tot een van de standaard gereedschappen in je gereedschapskist te vinden , maar kunt u deze toevoegen aan uw lijst met besturingselementen met de lijst met onderdelen . U kunt MMControl toevoegen zodat je audio-of videobestanden kunt integreren in uw project . Echter , MMControl accepteert slechts een bestand tegelijk , dus als u wilt uw eigen MP3-speler te maken , moet u een array te gebruiken om uw tracklijst slaan . Instructies
1 Open een Visual Basic project . Klik op " Project" uit het menu en selecteer "componenten . " Scroll naar beneden naar " Microsoft Multimedia Controle 6.0 , " en dubbelklik erop om een selectievakje toe te voegen aan de selectie . Klik op ' OK ' om het venster te sluiten componenten . Dit voegt MMControl aan uw gereedschapskist . Kopen van 2 Dubbelklik op de MMControl instrument in de gereedschapskist om een toe te voegen aan uw formulier . Klik en sleep de controle met betrekking tot een punt op het formulier waar u het nodig hebt .
3 Open het venster code . Typ " Dim tracklist ( 4 ) As String ' aan de top . Dit zal een array die vijf tracks ( genummerd nul tot vier ) zal houden te maken . Type " Dim tracknumber As Integer ' om een teller variabele te maken .
4 Open de functie " Form_Load ( ) " . Type " tracklist ( 0 ) = bestandspad " om je eerste baan te laden in uw array , waarbij " bestandspad " is de werkelijke locatie van uw MP3- bestand op uw computer . Doe dit opnieuw voor " spoor ( Lijst ( 1 ) " tot
Type 5 " MMControl1.Command = " Open " " in de " Form_Load ( ) " functie te openen " Tracklist ( 4 ) . " het apparaat wanneer het programma start Type " track nummer = 0 " . naar de volgende regel en " MMControl1.FileName = tracklist ( tracknumber )" op de lijn na dat . Type " MMControl.Command = " Play " op de laatste regel in de functie .
6 Open de functie " Form_Unload " en type " MMControl.Command = " Sluiten " " om de controle te stoppen wanneer uw programma eindigt .
7 Open het . functie " MMControl1_NextClick " Typ de volgende regels :
MMControl1.Command = " Stop"
Als tracknumber = 4 dan tracknumber
= 0
Else tracknumber
= tracknumber + 1 End
Als MMControl1.FileName
= list ( tracknumber ) op MMControl1.Command = " Open "
MMControl1.Command = "Play "
8 Open de functie " MMControl1_PrevClick " Typ de volgende regels : .
MMControl1.Command = " Stop"
Als tracknumber = 4
Else tracknumber
= tracknumber = 0 tracknumber dan
- 1 End
Als MMControl1.FileName
= lijst ( tracknumber ) op MMControl1.Command = " Open "
MMControl1.Command = "Play "
Druk op " F5 " 9 om uw programma te starten en luister om je MP3's .
|
