|
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 .
|
