VB.NET , la dernière version de Visual Basic, possède une classe SoundPlayer qui donne à votre application VB la possibilité de lire des fichiers audio . Malheureusement, cette classe ne produit un son à la fois . Si votre programme a besoin de jouer plusieurs sons ou des effets sonores en même temps , vous ne pouvez pas utiliser la classe SoundPlayer que votre source audio. En utilisant une astuce COM simple , cependant, vous pouvez ajouter plusieurs contrôles invisibles Windows Media Player à votre application qui jouent comme de nombreux sons simultanés que vous le souhaitez . . Instructions
1
Lancement de Microsoft Visual Studio , cliquez sur «Fichier», puis cliquez sur "Nouveau". Cliquez sur " Projet ", puis cliquez sur " Visual Basic " pour le sélectionner. Double-cliquez sur "Application Windows Forms " pour créer un nouveau projet VB.NET . Le fichier nommé " Form1.vb " apparaît dans l' Explorateur de solutions. La forme elle-même apparaît dans la fenêtre de conception à la gauche de l' Explorateur de solutions.
2
Cliquez sur le bouton "Affichage" , puis cliquez sur " Boîte à outils " pour ouvrir la boîte à outils Visual Studio. Faites un clic droit n'importe où dans la boîte à outils , puis cliquez sur "Ajouter les objets " pour ouvrir le "Choisir des éléments de boîte " fenêtre.
3
Cliquez sur " composants COM », puis cliquez sur le "Windows Media Player « case pour placer une coche là. Cliquez sur « OK », et Visual Studio ajoute une nouvelle commande "Windows Media Player " à la boîte à outils.
4
Double -cliquez sur ce contrôle pour l'ajouter à votre formulaire. Cliquez-droit sur le contrôle que vous avez ajouté à la forme, puis cliquez sur "Copier". Cliquez-droit sur un espace vide sur le formulaire , puis cliquez sur "Coller". Visual Studio place une copie de la configuration de Windows Media Player sur le formulaire.
5
Double -cliquez sur la barre de titre du formulaire. La fenêtre de code s'ouvre et affiche la méthode suivante:
Private Sub Form1_Load ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles MyBase.Load
End Sub
< p> Cette méthode s'exécute lorsque le formulaire est chargé
6
Ajoutez le code suivant avant "End Sub " déclaration de la méthode : .
Me.AxWindowsMediaPlayer1.Visible = False
< p> Me.AxWindowsMediaPlayer2.Visible = False
sound1 Dim As String
sound2 Dim As String
sound1 = " mySound1.wav "
sound2 = " mySound2.wav "
Me.AxWindowsMediaPlayer1.URL = sound1
Me.AxWindowsMediaPlayer2.URL = sound2
les deux premiers états cacher les deux Windows Media Player contrôle sur le forme . Les quatre prochaines déclarations définissent " sound1 " et variables " SOUND2 " . Ceux-ci occupent les emplacements de vos fichiers audio . Remplacer " mySound1.wav " et " mySound2.wav " avec les noms de chemin des deux fichiers audio sur votre disque dur. Les deux déclarations finales de définir les propriétés d'URL des deux contrôles aux valeurs stockées dans sound1 et sound2 . Cela provoque des lecteurs multimédia pour jouer les sons respectifs en même temps .
7
Appuyez sur " F5" pour exécuter le projet . La forme apparaît et les deux sons jouent simultanément.