Ako si vyrobiť Simultánne Zvuky v VB

VB.NET , najnovšia verzia Visual Basic , má triedu SoundPlayer , ktorý dáva svojmu VB sťažnosť o schopnosť prehrávať zvuk . Bohužiaľ , táto trieda vytvára iba jeden zvuk naraz . Pokiaľ je váš program musí hrať niekoľko zvukov alebo zvukových efektov súčasne , nemôžete použiť triedu SoundPlayer ako zdroj zvuku . Pomocou jednoduchého COM trik , však, môžete pridať viac neviditeľnú Windows Media Player ovládacie prvky aplikácie , ktoré hrajú ako mnoho súčasných zvukov , ako si prajete . . Pokyny dovolená 1

Spustite program Microsoft Visual Studio , kliknite na tlačidlo " Súbor " , potom kliknite na tlačidlo " Nový . " Kliknite na " projekt " , a potom kliknite na tlačidlo " Visual Basic " , zvýraznite ho . Double - kliknite na " Windows Forms aplikácie " vytvoriť nový projekt VB.NET . Súbor s názvom " Form1.vb " sa zobrazí v roztoku Explorer . Formulár sám sa objaví v okne Návrh na ľavej roztoku Explorer .
2

kliknite na tlačidlo " Zobraziť " , a potom kliknite na položku " Nástroje " otvoriť aplikáciu Visual Studio v paneli nástrojov . Kliknite pravým tlačidlom myši na paneli s nástrojmi, kliknite na tlačidlo " Pridať položky " , otvorí sa okno " Choose Toolbox Items " .
3

Kliknite na " COM komponenty , " kliknite na tlačidlo " Windows Media Player " checkbox umiestniť začiarknutie tam . Kliknite na tlačidlo " OK " a Visual Studio pridá nový ovládací prvok " Windows Media Player " na paneli nástrojov.
4

Double - click , ktorá riadi pridať do formulára . Kliknite pravým tlačidlom myši na ovládací prvok , ktorý ste pridali do formulára , kliknite na tlačidlo " Kopírovať " . Kliknite pravým tlačidlom myši na prázdne miesto na formulári , a potom kliknite na tlačidlo " Vložiť " . Visual Studio umiestni kópiu ovládanie Windows Media Player na formulári .
5

Dvakrát kliknite formulára hlavičky. Okno Kód otvorí a zobrazí sa nasledujúce metódy :

Private Sub Form1_Load ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Handles MyBase.Load

End Sub

Táto metóda spustí pri načítaní formulára
6

Pridajte nasledujúci kód pred metóda je " End Sub " vyhlásenie : .

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

prvých dvoch výrokov skryť dve klávesy Windows Media Player kontroluje na forma . Ďalšie štyri príkazy definujú " SOUND1 " a " SOUND 2 " premenné . Tie držia umiestnenie vašich zvukových súborov . Nahradiť " mySound1.wav " a " mySound2.wav " s menami dráhy dvoch zvukových súborov na vašom pevnom disku . Posledné dva príkazy nastaviť vlastnosti URL oboch ovládacích prvkov s hodnotami uloženými v Sound1 a SOUND2 . To spôsobí , že multimediálne prehrávače pre prehrávanie príslušné zvuky naraz .
7

Stlačte " F5 " pre spustenie projektu . Objaví sa formulár a dva zvuky prehrávať súčasne .

• Predchádzajúca strana: Ako vytvoriť hypertextové prepojenie vo VBA 
• Ďalšia strana: Ako používať okno Immediate v Vb.Net