Comment faire un Lecteur multimédia à l’aide de Visual Basic.Net
Dans ce tutoriel, je vais vous apprendre à créer un lecteur multimédia personnalisé capable de lire des sons, des vidéos et de visualiser des images dans différents formats. Alors commençons. Mais comme le lecteur multimédia n’existe pas dans la partie composant de la boîte à outils, nous devons ajouter le lecteur Windows Media à la boîte à outils. Pour ce faire, suivez simplement les étapes indiquées.
- Allez dans la boîte à outils et faites un clic droit
- Puis sélectionnez Choisir des éléments et la boîte de dialogue Personnaliser la boîte à outils s’ouvrira.
- Et sélectionnez Windows Media Player sur les composants COM.
- Puis cliquez sur « OK »
- Et enfin, le contrôle du lecteur Windows Media apparaîtra sur l’onglet actuel.
Après ce processus, nous pouvons maintenant ajouter Windows Media Player à notre formulaire et le nom par défaut de ce contrôle est « AxWindowsMediaPlayer1 ». Ensuite, vous êtes libre de changer le nom de cet objet en fonction de ce que vous souhaitez, par exemple, le nommer « WMPlayer » afin qu’il soit plus facile à lire et à mémoriser.
Le processus suivant est que nous allons ajouter d’autres contrôles à notre formulaire tels que Listbox, FolderBrowserDialog, MenuStrip et Statussrip.
Planifier les objets et les propriétés
Objet |
Propriété |
Paramètres |
| Form1 | Nom | mainFrm |
| Texte | Lecteur multimédia personnel | |
| Position de départ | Écran central | |
| ControlBox | False | |
| AxWindowsMediaPlayer1 | Nom | MyPLAYER |
| Zone de liste | Nom | Liste |
| MenuStrip1 | Nom | MenuStrip1 |
| StatusStrip1 | Nom | StatusStrip1 |
| FolderBrowserDialog1 | Nom | FolderBrowserDialog1 |
Sur le MenuStrip1, nous devons ajouter deux menus principaux tels que les bibliothèques et la vue. Les Bibliothèques ont également des sous-menus comme la musique, les Vidéos, les Images et la Sortie. Et pour le sous-menu Affichage, il n’y a que l’éditeur de Playlist. Cela devrait ressembler à ce qui est indiqué ci-dessous.
Et la conception finale ressemble à celle indiquée ci-dessous.
Après avoir conçu notre interface utilisateur, procédons à l’ajout de fonctionnalités à notre programme. Première étape double-cliquez sur le formulaire principal ou nous l’avons nommé en « mainFrm » pour déplacer notre concepteur de vue en code de vue. Ensuite, sur le mainFrm_Load, ajoutez ce code.Liste
.Article.Clear() ‘ efface tout le contenu de la liste list
.Hide() ‘ il masquera le sur le formulaire principal
MyPLAYER.Width = 787′ il va redimensionner la largeur de MyPLAYER en 787
et en dessous de notre mainFrm de classe Publique ajouter cette déclaration de variable qui tiendra le chemin ultérieur de notre dossier. Et ça va aimer ça.
mainFrm de classe publique
Dim folderpath Sous forme de chaîne
Après avoir ajouté ce code, nous allons créer une sous-procédure que nous utiliserons pour notre programme plus tard.
Sous-jokenresult public()
Liste If.Article.Compter > 0 Puis
liste.Afficher()
MyPLAYER.Width = 577
statresult.Texte = liste.Article.Compter & « Articles »
Autre
liste.Hide()
MyPLAYER.Width = 787
End If
End Sub
Ensuite, nous ajouterons des fonctionnalités aux éléments de sous-menu one sous bibliothèques la musique. Pour ce faire, double-cliquez simplement sur le sous-menu Musique. Ensuite, vous serez redirigé vers la vue du code source et ajoutez ce code afin qu’il ressemble maintenant à ce qui est indiqué ci-dessous.
Sous-musique privée Toolstripmenuitem_click (Expéditeur ByVal En Tant Que Système.Objet, ByVal e Comme Système.EventArgs) Gère MusicToolStripMenuItem.Cliquez sur
Essayez
‘ cela ouvrira la boîte de dialogue des dossiers dans laquelle vous pourrez sélectionner où se trouve le dossier spécifique de votre musique
FolderBrowserDialog1.ShowDialog()
Si DialogResult.OK Alors
‘si c’est vrai que si vous cliquez sur ok dans la boîte de dialogue dossier, alors
‘ il obtiendra le chemin sélectionné de votre dossier et le stockera dans la variable di
Dim di En tant que Nouvelle E/S.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ dans cette ligne de code, il obtiendra tout le fichier spécifique qui contient le.extension mp3 et stockez-la dans la variable diar1
Dim diar1 Comme IO.FileInfo() = di.GetFiles(« *.mp3 »)
Dim dra Comme IO.FileInfo
‘ et dans cette ligne, il rassemblera toutes les informations concernant fullpath et les noms de tous les fichiers et les stockera dans la variable folderpath
folderpath=di.Nom complet.Liste toString
.Article.Clear()
‘ liste les noms de tous les fichiers dans le répertoire spécifié
Pour Chaque dra Dans diar1
Dim a Comme Entier = 0
‘ a = a +1
liste.Article.Add(dra)
Next
‘ il appellera la sous-procédure jokenresult() pour effectuer certaines actions
jokenresult()
End If
Catch ex Comme Exception
‘ si des erreurs se produisent, le programme l’attrapera et le renverra à l’utilisateur.
Boîte MSG (ex.Message, MsgBoxStyle.Informations)
Fin Essayez
Fin Sous
Et ceci est l’exemple de programme en cours d’exécution jouant une musique sélectionnée.
Et c’est l’exemple du programme en cours d’exécution qui lit un film sélectionné.
Et enfin c’est tout le code source.
‘Description: Lecteur multimédia personnel permettant à l’utilisateur de lire de la musique, des vidéos et des images, etc.
‘Auteur: Joken Villanueva
‘Date de création: Mars 23, 2011
‘ Modifié Par:
mainFrm De Classe Publique
Dim folderpath En Tant Que Chaîne
Sous-MusicToolStripMenuItem_Click Privé (Expéditeur ByVal En Tant Que Système.Objet, ByVal e Comme Système.EventArgs) Gère MusicToolStripMenuItem.Cliquez sur
Essayez
‘ cela ouvrira la boîte de dialogue des dossiers dans laquelle vous pourrez sélectionner où se trouve le dossier spécifique de votre musique
FolderBrowserDialog1.ShowDialog()
Si DialogResult.OK Alors
‘si c’est vrai que si vous cliquez sur ok dans la boîte de dialogue dossier, alors
‘ il obtiendra le chemin sélectionné de votre dossier et le stockera dans la variable di
Dim di En tant que Nouvelle E/S.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ dans cette ligne de code, il obtiendra tout le fichier spécifique qui contient le.extension mp3 et stockez-la dans la variable diar1
Dim diar1 Comme IO.FileInfo() = di.GetFiles(« *.mp3 »)
Dim dra Comme IO.FileInfo
‘ et dans cette ligne, il rassemblera toutes les informations concernant fullpath et les noms de tous les fichiers et les stockera dans la variable folderpath
folderpath=di.Nom complet.Liste toString
.Article.Clear()
‘ liste les noms de tous les fichiers dans le répertoire spécifié
Pour Chaque dra Dans diar1
Dim a Comme Entier = 0
‘ a = a +1
liste.Article.Add(dra)
Next
‘ il appellera la sous-procédure jokenresult() pour effectuer certaines actions
jokenresult()
End If
Catch ex Comme Exception
‘ si des erreurs se produisent, le programme l’attrapera et le renverra à l’utilisateur.
Boîte MSG (ex.Message, MsgBoxStyle.Informations)
End Try
End Sub
Public Sub jokenresult()
Liste If.Article.Compter > 0 Puis
liste.Afficher()
MyPLAYER.Width = 577
statresult.Texte = liste.Article.Compter & « Articles »
Autre
liste.Hide()
MyPLAYER.Width = 787
End If
End Sub
Private Sub list_SelectedIndexChanged (Expéditeur ByVal En Tant Que Système.Objet, ByVal e Comme Système.EventArgs) Gère la liste.SelectedIndexChanged
‘le MyPLAYER jouera ou affichera quelque chose dans la liste en fonction de l’élément sélectionné par l’utilisateur
MyPLAYER.URL= folderpath & liste « \ » &.Article sélectionné.toString
End Sub
Private Sub VideosToolStripMenuItem_Click (Expéditeur ByVal En Tant Que Système.Objet, ByVal e Comme Système.EventArgs) Gère VideosToolStripMenuItem.Cliquez sur
Essayez
FolderBrowserDialog1.ShowDialog()
Si DialogResult.OK Alors
Dim di Comme Nouvelle IO.DirectoryInfo (FolderBrowserDialog1.Chemin sélectionné)
Dim diar1 Comme IO.FileInfo() = di.Fichiers d’accès (« *.* »)
Dim dra Comme IO.FileInfo
folderpath=di.Nom complet.Liste toString
.Article.Clear()
Pour Chaque dra Dans La liste diar1
.Article.Ajouter (dra)
Suivant
jokenresult()
Fin Si
Catch ex Comme Exception
MsgBox(ex.Message, MsgBoxStyle.Informations)
Fin Essayez
MsgBox(folderpath)
Fin Du Sous-fichier
Sous-fichier Privé ImagesToolStripMenuItem_Click (Expéditeur ByVal En Tant Que Système.Objet, ByVal e Comme Système.EventArgs) Gère ImagesToolStripMenuItem.Cliquez sur
Essayez
FolderBrowserDialog1.ShowDialog()
Si DialogResult.OK Alors
Dim di Comme Nouvelle IO.DirectoryInfo (FolderBrowserDialog1.Chemin sélectionné)
Dim diar1 Comme IO.FileInfo() = di.Fichiers d’accès (« *.jpg »)
Dim dra Comme IO.FileInfo
folderpath=di.Nom complet.Liste toString
.Article.Clear()
Pour Chaque dra Dans La liste diar1
.Article.Ajouter (dra)
Suivant
jokenresult()
Fin Si
Catch ex Comme Exception
MsgBox(ex.Message, MsgBoxStyle.Informations)
Fin Essayez
Fin Du Sous-marin
Sous-marin Privé ExitToolStripMenuItem_Click (Expéditeur ByVal En Tant Que Système.Objet, ByVal e Comme Système.EventArgs) Gère ExitToolStripMenuItem.Cliquez sur
Moi.Close()
End Sub
Sous-PlaylistEditorToolStripMenuItem_Click Privé (Expéditeur ByVal En Tant Que Système.Objet, ByVal e Comme Système.EventArgs) Gère PlaylistEditorToolStripMenuItem.Cliquez sur
‘ dans cette ligne si l’éditeur de playlist est cliqué, la liste apparaîtra sur le formulaire.
Si PlaylistEditorToolStripMenuItem.Checked =True Puis
liste.Afficher()
MyPLAYER.Width = 577
Autre
liste.Hide()
MyPLAYER.Width = 787
End If
End Sub
Private Sub mainFrm_Load (Expéditeur ByVal En Tant Que Système.Objet, ByVal e Comme Système.EventArgs) Gère MyBase.Charger la liste
.Article.Clear() ‘ efface tout le contenu de la liste list
.Hide() ‘ il masquera le sur le formulaire principal
MyPLAYER.Width = 787′ il redimensionne la largeur de MyPLAYER en 787
End Sub
End Class