VB.NET , de nieuwste versie van Visual Basic , heeft een SoundPlayer klasse die je VB applicatie geeft de mogelijkheid om audio af te spelen . Helaas klasse produceert slechts een geluid tegelijk . Als je programma nodig heeft om meerdere geluiden of geluidseffecten tegelijk te spelen , kunt u niet de SoundPlayer klasse te gebruiken als uw audiobron . Met behulp van een eenvoudige COM truc , kunt u echter meerdere onzichtbare Windows Media Player controls toe te voegen aan uw applicatie dat het spel zoveel simultane geluiden als u wilt. . Instructies
1 Lancering Microsoft Visual Studio , klik op ' Bestand ' en vervolgens op ' Nieuw '. Klik op " Project , " en klik op " Visual Basic " om deze te markeren . Dubbelklik op " Windows Forms Application " om een nieuw VB.NET project te creëren . Het bestand met de naam " Form1.vb " verschijnt in de Solution Explorer . Het formulier zelf verschijnt in het ontwerp -venster aan de linkerzijde van de Solution Explorer . Kopen van 2 Klik op de " View " knop , en klik vervolgens op " Toolbox " om Visual Studio 's gereedschapskist openen . Klik met de rechtermuisknop ergens in de toolbox , klik vervolgens op ' Items toevoegen " om het venster " Choose Toolbox Items " te openen .
3 Klik op " COM Components , " klik op de " Windows Media Player " checkbox om een vinkje te plaatsen. Klik op " OK" en Visual Studio voegt een nieuwe " Windows Media Player " controle aan de toolbox .
4 Dubbelklik op die controle toe te voegen aan uw formulier . Rechtermuisknop op het besturingselement dat u aan het formulier toegevoegd , en klik op ' Kopiëren'. Rechtermuisknop op een lege ruimte op het formulier en klik vervolgens op ' Plakken'. Visual Studio plaatst een kopie van de Windows Media Player-besturingselement op het formulier .
5 Dubbelklik op het formulier van de titelbalk . Het venster Code wordt geopend en de volgende methode : Private Sub Form1_Load
( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles MyBase.Load
End Sub
Deze methode wordt uitgevoerd wanneer het formulier wordt geladen
6 Voeg de volgende code voor de methode van de " End Sub " statement : . Me.AxWindowsMediaPlayer1.Visible = False
Me.AxWindowsMediaPlayer2.Visible = False Dim Geluid1
als Koord Dim Sound2
als Koord
Geluid1 = " mySound1.wav "
Sound2 = " mySound2.wav " Me.AxWindowsMediaPlayer1.URL
= Geluid1 Me.AxWindowsMediaPlayer2.URL
= Sound2
de eerste twee verklaringen hide de twee Windows Media Player controleert op de vorm . De komende vier overzichten te omschrijven " Geluid1 " en " Sound2 " variabelen . Deze houdt de locaties van uw geluidsbestanden . Vervang " mySound1.wav " en " mySound2.wav " met het pad namen van twee audio- bestanden op uw harde schijf . De laatste twee verklaringen stellen de URL eigenschappen van beide controles aan de waarden die zijn opgeslagen in Geluid1 en Sound2 . Dit zorgt ervoor dat de mediaspelers aan de respectieve geluiden tegelijk spelen .
Druk op " F5 " 7 om het project uit te voeren. Het formulier verschijnt en de twee geluiden tegelijk spelen .
|
