Audio 如何在vb6背景中播放音乐？

嗨，我用vb6做了一个小游戏，我需要在一段时间内播放2个声音 我使用这个代码

私有声明函数PlaySoundMem Lib winmm.dll别名PlaySoundA ByVal lpszName为Long，ByVal hModule为Long，ByVal dwFlags为Long Const SND_ASYNC=&H1，SND_MEMORY=&H4，SND_NODEFAULT=&H2，SND_NOSTOP=&H1，SND_NOWAIT=&H2000 像字节一样暗淡的声音 作为整数的Dim x 专用子窗体加载 出错时继续下一步 声音=LoadResDatamusic，自定义 调用PlaySoundMemVarPtrSound0、0、SND_NOWAIT或SND_NODEFAULT或SND_MEMORY或SND_ASYNC或SND_NOSTOP 多芬特 端接头 私人分公司 如果nrd.Text=1，则 x=1 snd_英雄 ElseIf nrd.Text=2，则 x=2 snd_英雄 ElseIf nrd.Text=3然后 x=3 snd_英雄 ElseIf nrd.Text=4则 x=4 snd_英雄 ElseIf nrd.Text=5，则 x=5 snd_英雄 ElseIf nrd.Text=6然后 x=6 snd_英雄 如果结束 端接头 二等兵 出错时继续下一步 声音=LoadResDatax，自定义 调用PlaySoundMemVarPtrSound0、0、SND_NOWAIT或SND_NODEFAULT或SND_MEMORY或SND_ASYNC或SND_NOSTOP 多芬特

---

ReDim Sound0退房。它是针对VB.Net的，但看起来唯一需要更改的是按钮单击事件处理程序。mciSendString是WinAPI for MCI devices winmm.dll的一部分，在VB6中同样易于使用。

您可以尝试使用windows media player控件并将其设置为循环。由于它的行为在某种程度上类似于一个外部媒体播放器，它将音频混入directshow，因此它不会阻止其他声音播放，反之亦然。

这是一个很好的例子，但在vb.net中，我不知道如何使用它，如果你能将代码转换为vb 6 plz，thxI很乐意为你这样做。我的费率是每小时150美元，大概需要一个小时。任何其他工作，你需要做的，也许你可以让我提前知道，我会为整个工作的报价。一旦我们确定了我将如何获得报酬，签订合同等等，我就可以开始了。如果你想自己做，那就仔细阅读我的解释。如果你感到困惑，问我，我会回答。答案是免费的，代码不是。