在VB.NET如何用多线程播放WAV文件？
因为要连续播放多个WAV文件，在播放时界面没有反应，想用多线程，但不成功。关键是不知怎么传递参数。
Private Sub Grid2_Click(ByVal Sender As Object, ByVal e As System.EventArgs) Handles Grid2.Click
Dim GBdm As String
Dim iType As Integer

GBdm = Grid2.Cell(Grid2.MouseRow, 5).Text()

iType = MsgBox("你确定要广播-" + Grid2.Cell(Grid2.MouseRow, 4).Text() + "-这条信息吗？", 36, "确定广播?")
If iType = MsgBoxResult.Yes Then
T1 = New Thread(AddressOf Me.CBY_PLAY)

T1.Start()
End If
End Sub
Private Sub CBY_PLAY(ByVal BY As String)
Dim path, GBxx() As String
Dim iType, intX As Integer
path = Application.StartupPath & "\..\wav\"
GBxx = Split(BY, ":")
For intX = 0 To GBxx.Length - 1
sndPlay(path & GBxx(intX) & ".wav", 0)
Next
End Sub
Public Declare Function sndPlay Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SoundName As String, ByVal Flags As Long) As Long

用委托吧~

Public Declare Function sndPlay Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SoundName As String, ByVal Flags As Long) As Long
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Public Delegate Sub PlayWAVDelegate(ByVal Path As String)
Public PlayWavAsyncCallBack As AsyncCallback
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PlayWavThread As PlayWAVDelegate = New PlayWAVDelegate(AddressOf PlayWAV)
PlayWavAsyncCallBack = New AsyncCallback(AddressOf PlayWAV_CallBack)
PlayWavThread.BeginInvoke(TextBox1.Text, PlayWavAsyncCallBack, Nothing)
End Sub
Public Sub PlayWAV_CallBack(ByVal b As IAsyncResult)
If b.IsCompleted Then
MsgBox("播放完毕")
End If
End Sub
Private Sub PlayWAV(ByVal Path As String)
sndPlay(Path, 0)
End Sub

CBY_PLAYThread(BeginInvoke(TEXT1.TEXT, CBY_PLAYAsyncCallBack, Nothing))
这里面的TEXT1.text是传给PLAYWAVE的路径吗？
不好意思，我对VB。NET不是很熟。

Private Sub Grid2_Click(ByVal Sender As Object, ByVal e As System.EventArgs) Handles Grid2.Click
Dim GBdm As String
Dim iType As Integer
GBdm = Grid2.Cell(Grid2.MouseRow, 5).Text()
Dim CBY_PLAYThread As CBY_PLAYDelegate = New CBY_PLAYDelegate(AddressOf CBY_PLAY)
iType = MsgBox("你确定要广播-" + Grid2.Cell(Grid2.MouseRow, 4).Text() + "-这条信息吗？", 36, "确定广播？")
If iType = MsgBoxResult.Yes Then
CBY_PLAYAsyncCallBack = New AsyncCallback(AddressOf CBY_PLAY_CallBack)
CBY_PLAYThread.BeginInvoke(GBdm, CBY_PLAYAsyncCallBack, Nothing)
End If
End Sub

Private Sub CBY_PLAY(ByVal BY As String)
Dim path, GBxx() As String
Dim intX As Integer
path = Application.StartupPath & "\..\wav\"
GBxx = Split(BY, ":")
For intX = 0 To GBxx.Length - 1
sndPlay(path & GBxx(intX) & ".wav", 0)
Next
End Sub
Public Delegate Sub CBY_PLAYDelegate(ByVal Path As String)
Public CBY_PLAYAsyncCallBack As AsyncCallback
Public Sub CBY_PLAY_CallBack(ByVal b As IAsyncResult)
If b.IsCompleted Then
MsgBox("本信息已播放完毕！", 32, "广播完毕！")
End If
End Sub
问题是我怎么判断我调用CBY_PLAY已经完毕，要不会出现播放混乱的现象。

CBY_PLAYAsyncCallBack,这个就是指上一个WAV已播放完毕了啊~

那要如何判断呢？