VB.NET , die neueste Version von Visual Basic , hat eine SoundPlayer Klasse, Ihre VB-Anwendung die Möglichkeit gibt, zu spielen Audio. Leider ist diese Klasse erzeugt nur einen Ton zu einem Zeitpunkt. Wenn Ihr Programm muss mehrere Sounds oder Sound-Effekte zur gleichen Zeit spielen , können Sie nicht die SoundPlayer Klasse als Audioquelle. Mit einem einfachen Trick COM , können Sie jedoch mehrere unsichtbare Windows Media Player Kontrollen zu Ihrer Anwendung hinzufügen , dass das Spiel so viele gleichzeitige Klänge wie Sie es wünschen . . Anleitung
1
Starten Sie Microsoft Visual Studio , klicken Sie auf " Datei" und dann auf "Neu ". Klicken Sie auf " Projekt ", und klicken Sie dann auf " Visual Basic ", um sie zu markieren. Doppelklicken Sie auf " Windows Forms Application" , um eine neue VB.NET -Projekt zu erstellen . Die Datei mit dem Namen " Form1.vb " erscheint im Solution Explorer . Das Formular selbst wird in der Design-Fenster auf der linken Seite des Solution Explorer .
2
Klicken Sie auf die Schaltfläche "Anzeigen" , und klicken Sie dann auf " Werkzeuge ", um Visual Studio Toolbox zu öffnen . Überall rechten Maustaste in die Toolbox , klicken Sie dann auf "Add Items" , die " Choose Toolbox Items "-Fenster zu öffnen.
3
Klicken Sie "COM -Komponenten", klicken Sie auf den "Windows Media Player " Checkbox ein Häkchen dort zu platzieren . Klicken Sie auf " OK ", und Visual Studio fügt eine neue "Windows Media Player" -Steuerelement der Toolbox .
4
Doppelklicken Sie auf das Steuerelement , um es zu Ihrem Formular hinzuzufügen. Rechten Maustaste auf das Steuerelement, das Sie in das Formular eingefügt , dann klicken Sie auf " Kopieren". Mit der rechten Maustaste auf einen leeren Bereich auf dem Formular , und klicken Sie dann auf " Einfügen". Visual Studio legt eine Kopie der Windows Media Player-Steuerelement auf das Formular.
5
Doppelklicken Sie auf die Form der Titelleiste . Das Code-Fenster öffnet sich und zeigt die folgende Methode :
Private Sub Form1_Load (ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase.Load
End Sub