IN MainForm.vb 'Beispiel: VB .Net - SoundPlayer - Play looping ' Option Explicit On Option Strict On Imports System.Media Imports System.ComponentModel Public Partial Class MainForm Public Sub New() Me.InitializeComponent() sp = New SoundPlayer AddHandler sp.LoadCompleted, AddressOf spLoadCompleted End Sub Private Sub spLoadCompleted(ByVal sender As Object, _ ByVal e As AsyncCompletedEventArgs) Me.Text = String.Format("Datei wurde geladen: {0}", sp.SoundLocation) End Sub Private Sub Button1Click(sender As Object, e As System.EventArgs) 'Play Dim ofd As OpenFileDialog = New OpenFileDialog() ofd.Filter = "wav files (*.wav)|*.wav" If ofd.ShowDialog() = DialogResult.OK Then Try button2.Enabled = True sp.SoundLocation = ofd.Filename sp.Load() sp.PlayLooping() Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") End Try Else MessageBox.Show("Dateiauswahl wurde abgebrochen...", "Info") End If End Sub Private Sub Button2Click(sender As Object, e As System.EventArgs) 'Stop sp.Stop() button2.Enabled = False End Sub Private Sub MainFormLoad(sender As Object, e As System.EventArgs) button2.Enabled = False End Sub End Class IN MainForm.Designer.vb Imports System.Media Partial Class MainForm Inherits System.Windows.Forms.Form ' '*************************************************************************** Private sp As SoundPlayer '*************************************************************************** ' ''' <summary> ''' Designer variable used to keep track of non-visual components. ''' </summary> Private components As System.ComponentModel.IContainer ''' <summary> ''' Disposes resources used by the form. ''' </summary> ''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param> Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If components IsNot Nothing Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ''' <summary> ''' This method is required for Windows Forms designer support. ''' Do not change the method contents inside the source code editor. The Forms designer might ''' not be able to load this method if it was changed manually. ''' </summary> Private Sub InitializeComponent() Me.button1 = New System.Windows.Forms.Button Me.button2 = New System.Windows.Forms.Button Me.SuspendLayout ' 'button1 ' Me.button1.Location = New System.Drawing.Point(12, 14) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(308, 50) Me.button1.TabIndex = 0 Me.button1.Text = "&Play Sound" Me.button1.UseVisualStyleBackColor = true AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'button2 ' Me.button2.Location = New System.Drawing.Point(326, 16) Me.button2.Name = "button2" Me.button2.Size = New System.Drawing.Size(348, 47) Me.button2.TabIndex = 1 Me.button2.Text = "&Stop Sound" Me.button2.UseVisualStyleBackColor = true AddHandler Me.button2.Click, AddressOf Me.Button2Click ' 'MainForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(686, 77) Me.Controls.Add(Me.button2) Me.Controls.Add(Me.button1) Me.MaximizeBox = false Me.Name = "MainForm" Me.Text = "Testform <SoundPlayer - PlayLooping>" AddHandler Load, AddressOf Me.MainFormLoad Me.ResumeLayout(false) End Sub Private button2 As System.Windows.Forms.Button Private button1 As System.Windows.Forms.Button End Class