Le contrôle multimédia Microsoft ou MMControl , est un outil Visual Basic qui joue les fichiers multimédias. Vous ne trouverez pas MMControl d'être l'un des outils par défaut dans votre boîte à outils, mais vous pouvez l'ajouter à votre liste de contrôles avec la liste des composants . Vous pouvez ajouter MMControl de sorte que vous pouvez intégrer des fichiers audio ou vidéo sur votre projet. Cependant, MMControl n'accepte qu'un seul fichier à la fois , donc si vous voulez créer votre propre lecteur MP3, vous aurez besoin d'utiliser un tableau pour stocker votre liste de piste. Instructions
1

Ouvrez un projet Visual Basic. Cliquez sur " Projet " dans le menu , puis sélectionnez " Composants ". Faites défiler jusqu'à " Microsoft Multimedia Control 6.0 " et double -cliquez dessus pour ajouter une case à cocher pour la sélection. Cliquez sur " OK" pour fermer la fenêtre des composants. Cela ajoute MMControl à votre boîte à outils.
2

Double cliquez sur l'outil MMControl dans la boîte à outils pour ajouter une à votre forme . Cliquez et faites glisser le contrôle à un point sur ​​le formulaire où vous en avez besoin .
3

Ouvrez la fenêtre de code . Tapez "Dim tracklist (4) As String " au sommet. Cela va créer un tableau qui contiendra cinq pistes (numérotés de zéro à quatre ) . Tapez " TrackNumber As Integer " pour créer une variable compteur .
4

Ouvrez la fonction " Form_Load ()" . Tapez " tracklist (0) = file_path " pour charger votre première piste dans votre tableau, où " file_path " est l'emplacement réel de votre fichier MP3 sur votre ordinateur. Répétez cette opération pour "piste ( la liste ( 1)" " MMControl1.Command =" fonction
5

de type ouvert " " dans le " Form_Load () " pour ouvrir la " liste de lecture (4). " l'appareil lorsque le programme démarre . Tapez " trackNumber = 0" sur la ligne suivante et " MMControl1.FileName = tracklist ( trackNumber ) " sur la ligne par la suite. Tapez " MMControl.Command = " Play "sur la dernière ligne de la fonction .
6

Ouvrez la fonction " Form_Unload " , et tapez " MMControl.Command = " Fermer " " pour arrêter le contrôle lorsque votre programme se termine .
7

Ouvrez l' . fonction " MMControl1_NextClick " tapez les lignes suivantes :

MMControl1.Command =

"Stop" Si trackNumber = 4 Puis

trackNumber = 0

Else Photos

trackNumber = trackNumber + 1

End If

MMControl1.FileName = list ( trackNumber )

MMControl1.Command =
"Open" < p> MMControl1.Command = "Play"
8

ouvrir la fonction " MMControl1_PrevClick " Tapez les lignes suivantes : .

MMControl1.Command = "Stop"

Si trackNumber = 0 Then

trackNumber = 4

Else

trackNumber = trackNumber - 1 x

End If

MMControl1.FileName = liste ( trackNumber )

MMControl1.Command = "Open"

MMControl1.Command = "Play"
9

Appuyez sur " F5 " pour commencer votre programme et écouter vos fichiers MP3 .