WAVE-Dateien mit der Media-Klasse abspielen (VB 2005) Mit Hilfe der SoundPlayer-Komponente aus der Media-Klasse lässt sich eine WAVE-Datei einfach laden und abspielen (Framework 2.0).
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  10.355
https://www.tools4vb.com	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 8 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Einer der Neuerungen von .NET Framework 2.0 ist die SoundPlayer-Komponente, mit der sich WAVE-Dateien bequem laden und abspielen lassen. Die Sounddatei kann hierbei synchron, asnynchron oder im "Loop" abgespielt werden.

Nachfolgend ein paar Beispiele:

Imports System.Media
Public Class Form1
  ' Soundplayer-Komponente
  Dim oPlayer As SoundPlayer
 

  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    ' Soundplayer-Objekt erstellen
    oPlayer = New SoundPlayer
    With oPlayer
      ' WAVE-Datei, die später abgespielt werden soll
      .SoundLocation = "c:\mysound.wav"
    End With
  End Sub

  Private Sub btnSync_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnSync.Click
 
    ' Sounddatei synchron abspielen, d.h. die Anwendung wartet, 
    ' bis die Sounddatei vollständig abgespielt wurde
    With oPlayer
      .PlaySync()
    End With
  End Sub

  Private Sub btnASync_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnASync.Click
 
    ' Sounddatei asynchron abspielen, d.h. die Anwendung läuft, 
    ' parallel dazu weiter
    With oPlayer
      .Play()
    End With
  End Sub

  Private Sub btnStop_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnStop.Click
 
    ' Abspielvorhang anhalten
    With oPlayer
      .Stop()
    End With
  End Sub

  Private Sub btnLoop_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnLoop.Click
 
    ' Sounddatei im Loop abspielen
    With oPlayer
      .PlayLooping()
    End With
  End Sub

  Private Sub Form1_FormClosing(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
    ' Beenden
    oPlayer.Stop()
  End Sub

End Class