VB.NET , den nyeste version af Visual Basic , har en SoundPlayer klasse, der giver din VB program mulighed for at afspille lyd . Desværre denne klasse producerer kun én lyd ad gangen. Hvis dit program skal spille flere lyde eller lydeffekter på samme tid, kan du ikke bruge SoundPlayer klasse som din lydkilde. Ved hjælp af en simpel COM trick , men du kan tilføje flere usynlige Windows Media Player kontrol for at din ansøgning , at spille så mange samtidige lyde , som du ønsker . . Instruktioner
1
Launch Microsoft Visual Studio , klik på " Filer" og derefter klikke på " Ny". Klik på " Project ", og klik derefter på "Visual Basic " for at fremhæve det. Dobbeltklik på " Windows Forms Application " for at oprette et nyt VB.NET projekt. Filen hedder " Form1.vb " vises i Solution Explorer. Selve formularen vises i Design vinduet til venstre for Solution Explorer .
2
Klik på "Vis " knappen, og klik derefter på "Toolbox " for at åbne Visual Studio værktøjskasse . Højreklik et vilkårligt sted i værktøjskassen, og klik derefter på "Tilføj varer " for at åbne "Choose Toolbox Items" vinduet.
3
Klik på " COM-komponenter " og derefter klikke på " Windows Media Player "afkrydsningsfeltet for at placere et flueben der. Klik på " OK", og Visual Studio tilføjer en ny "Windows Media Player " kontrol til værktøjskassen .
4
Dobbeltklik på denne kontrol for at føje den til din formular. Højreklik på den kontrol, du har føjet til formularen, og klik derefter på " Kopier". Højreklik et tomt sted på formularen, og klik derefter på " Indsæt". Visual Studio placerer en kopi af Windows Media Player -kontrol på formularen .
5
Dobbeltklik på formularen titellinje. Kodeksen åbnes og viser følgende metode : Hej
Private Sub Form1_Load ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles MyBase.Load
End Sub
< p> Denne metode kører , når formularen belastninger
6
Føj følgende kode , før metoden er " End Sub" erklæring: .
Me.AxWindowsMediaPlayer1.Visible = False
< p> 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ørste to udsagn gem de to Windows Media Player kontrollerer den formular . De næste fire udsagn definere " SOUND1 " og " SOUND2 " variable. Disse hold placeringen af dine lydfiler. Erstat " mySound1.wav " og " mySound2.wav " med stien navnene på to lydfiler på din harddisk. De sidste to erklæringer indstille URL egenskaber af de to kontroller til de værdier, der er lagret i SOUND1 og SOUND2 . Dette bevirker, at medieafspillere til at spille de respektive lyde på samme tid .
7
Tryk på " F5 " for at køre projektet. Formularen vises, og de to lyde spille samtidigt .