vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Multimedia & Sound · Soundfunktionen   |   VB-Versionen: VB.NET14.03.07
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 OtterBewertung:  Views:  9.868 
www.tools4vb.deSystem:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.