Hallo allerseits,
der Media.SoundPlayer bietet ja an sich keine Möglichkeit mehrere Sounds gleichzeitig abzuspielen.
Hier möchte ich euch eine wirklich simple alternative zeigen, um ihn doch zum Multi-Playing zu bewegen.
Da ich zu diesem Thema seit Jahren keine brauchbaren Infos gefunden hab, denke ich das es den einen oder anderen vielleicht interessiert.
Es sei dazugesagt das dies nur bei Soundfiles die auf der Festplatte hinterlegt sind Sinn macht...
Erstellt einfach ein neues Projekt mit dem Namen "SoundPlayer", fügt 3 Buttons und 1 Label hinzu und den folgenden Code zum testen ein.
Im Anhang befinden sich die *.wav-Dateien die im Projekt verwendet werden. Diese einfach in den Bin/Debug-Ordner des Projekts kopieren oder dort ganz einfach eigene Sounds verwenden...
der Media.SoundPlayer bietet ja an sich keine Möglichkeit mehrere Sounds gleichzeitig abzuspielen.
Hier möchte ich euch eine wirklich simple alternative zeigen, um ihn doch zum Multi-Playing zu bewegen.
Da ich zu diesem Thema seit Jahren keine brauchbaren Infos gefunden hab, denke ich das es den einen oder anderen vielleicht interessiert.
Es sei dazugesagt das dies nur bei Soundfiles die auf der Festplatte hinterlegt sind Sinn macht...
Erstellt einfach ein neues Projekt mit dem Namen "SoundPlayer", fügt 3 Buttons und 1 Label hinzu und den folgenden Code zum testen ein.
Im Anhang befinden sich die *.wav-Dateien die im Projekt verwendet werden. Diese einfach in den Bin/Debug-Ordner des Projekts kopieren oder dort ganz einfach eigene Sounds verwenden...
VB.NET-Quellcode
- Public Class Form1
- Dim d As New Media.SoundPlayer
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Button1.Text = "Intro"
- Button2.Text = "Laser"
- Button3.Text = "Boom"
- Label1.Text = ""
- Dim str As String = Environment.GetCommandLineArgs(1).ToString
- d.SoundLocation = str
- Try
- d.PlaySync()
- Me.Close()
- Catch ex As Exception
- Label1.Text = ex.ToString
- End Try
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Process.Start("SoundPlayer.exe", "Intro.wav")
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Process.Start("SoundPlayer.exe", "fx_Laser.wav")
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- Process.Start("SoundPlayer.exe", "fx_Boom.wav")
- End Sub
- End Class
Das Chaos beginnt mit komprimierter Ordnung (Steppenpferd 2019)
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Steppenpferd“ ()