VB.NET , den senaste versionen av Visual Basic , har en SoundPlayer klass som ger din VB ansökan möjligheten att spela upp ljud . Olyckligtvis producerar denna klass endast ett ljud i taget. Om ditt program måste spela flera ljud eller ljudeffekter samtidigt , kan du inte använda SoundPlayer klass som din ljudkälla . Med en enkel COM trick , men du kan lägga till flera osynliga Windows Media Player -kontroller till din ansökan att spela så många samtidiga ljud som du önskar . . Instruktioner
1
Launch Microsoft Visual Studio , klicka på " File" och klicka sedan på " Nytt . " Klicka på " Project " och klicka sedan på " Visual Basic " för att markera det . Dubbelklicka på " Windows Forms Application " för att skapa ett nytt VB.NET projekt . Filen heter " Form1.vb " visas i Solution Explorer . Själva formuläret visas i Design fönstret till vänster om Solution Explorer .
2
Klicka på " Visa" knappen , och klicka sedan på " Verktygslåda " för att öppna Visual Studio verktygslåda . Högerklicka någonstans i verktygslådan , klicka " Lägg produkter " för att öppna " Välj Toolbox Items" fönstret .
3
Klicka på " COM-komponenter , " klicka sedan på " Windows Media Player " kryssrutan för att placera en bock där. Klicka på " OK ", och Visual Studio lägger till en ny " Windows Media Player " kontrollen i verktygslådan .
4
Dubbelklicka på den kontrollen för att lägga till den i ditt formulär . Högerklicka på den kontroll du lagt till formen , klicka på " Kopiera". Högerklicka på ett tomt utrymme i formuläret , och klicka sedan på " Klistra in". Visual Studio placerar en kopia av Windows Media Player kontroll i formuläret .
5
Dubbelklicka på formen namnlist . Koden öppnas och visar följande metod :
Private Sub Form1_Load ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag MyBase.Load
End Sub
den här metoden körs när formuläret laddas
6
Lägg in följande kod före metodens " End Sub " uttalande : .
Me.AxWindowsMediaPlayer1.Visible = False
Me.AxWindowsMediaPlayer2.Visible = False
Dim SOUND1 As String
Dim SOUND2 As String
SOUND1 = " mySound1.wav "
SOUND2 = " mySound2.wav "
Me.AxWindowsMediaPlayer1.URL = SOUND1
Me.AxWindowsMediaPlayer2.URL = SOUND2
de första två uttalanden göm två Windows Media Player kontrollerar om formulär . De kommande fyra påståenden definierar " SOUND1 " och " SOUND2 " variabler . Dessa håller de platser där dina ljudfiler . Ersätt " mySound1.wav " och " mySound2.wav " med sökvägar på två ljudfiler på din hårddisk . De sista två uttalandena URL egenskaperna hos de två kontroller till de värden som lagras i SOUND1 och SOUND2 . Detta orsakar mediaspelare att spela de respektive ljuden samtidigt .
7
Tryck " F5 " för att köra projektet . Formen visas och de två ljuden spela samtidigt .
