vb.net - VB.Net同时播放mp3

Question

我一直对此感到疑惑，我尝试了来自不同站点的多种建议。我的代码在这里，但无法正常工作。

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal _
uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim fileName As String

    FileName = Chr(34) & (Button1.Text) & Chr(34)
    mciSendString("open " & FileName & " alias myDevice", Nothing, 0, 0)
    mciSendString("play myDevice", Nothing, 0, 0)


    FileName = Chr(34) & (Button2.Text) & Chr(34)
    mciSendString("open " & FileName & " alias myDevice", Nothing, 0, 0)
    mciSendString("play myDevice", Nothing, 0, 0)

该代码仅播放第一首歌曲，而不会播放第二首歌曲...我正在考虑创建另一个函数，该函数与上面的名字类似，但名称不同，但还是没有运气。

Private Declare Function mciSendString2 Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal _
uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

任何的想法？还是可以同时播放多个mp3？

Answer 1

尽管我自己正在处理一个不同的问题，但我在搜索中遇到了这个问题，可以告诉您它不能同时播放两个文件的原因是因为您的别名是相同的。