如何停止PlaySync在聲音播放按鈕點擊

Question

例如：聲音

• 輸入數量從5到92
• 則音頻將汽車無由audio5發揮audio92
• 我想在中途停止

這裏我的代碼：

Sub playsound() 
    Dim from1 As Integer 
    If Not Integer.TryParse(TextBox1.Text, from1) Then 
     Return 
    End If 

    Dim to1 As Integer 
    If Not Integer.TryParse(TextBox2.Text, to1) Then 
     Return 
    End If 

    For i As Integer = from1 To to1 
     Dim sound As String = "D:\Audio\audio" & i.ToString & ".wav" 
     Dim media As New Media.SoundPlayer(sound) 
     media.PlaySync() 
    Next 

BtnPlay點擊：

If TextBox1.Text < 3 Then 
     MessageBox.Show("Audio strat from audio3") 

    ElseIf TextBox1.Text = "" Or TextBox2.Text = "" Then 
     MessageBox.Show("Can't empty") 

    ElseIf TextBox1.Text > 100 Or TextBox2.Text > 100 Then 
     MessageBox.Show("Audio finish at audio100") 

    ElseIf TextBox1.Text > TextBox2.Text Then 
     MessageBox.Show("Audio can't play backwards") 
    Else 
     Call playsound() 
    End If 

Answer 1

試驗很多與WinAPI的功能PlaySound()（其中SoundPlayer class使用）之後，我發現，這是根本不可能停同步聲音。恐怕你正在嘗試做的事情是不可能的，使用SoundPlayer課程。

你應該看看其他庫，你可以用它來代替SoundPlayer類。例如，您可以使用預裝在大多數Windows系統上的Windows Media Player。