请问在VB中如何加入MID背景音乐？？

Question

我写了一段VB代码可是不知道怎么加入一段MID背景乐 ：）
还有就是我还想加入GIT动画：）
我是初学者~~~~~~！
谢谢指点~~！！
那里有关于这些的源代码？？
帮帮我~！！！！

Answer 1

Windows自带的Windows Media控件可以播放大部分的声音和视频。

Answer 2

Windows Media 自己做一个也不赖

Answer 3

是Windows Media Player，一时打错了。那控件播放视频和声音还是挺好的，API只能放WAV

Answer 4

API可以播放微软支持的所有格式！！！！！！！！！！！！！！！！！！！！！！

Answer 5

你的API是指微软的API吗？怎么播放非WAV文件？请指教。

Answer 6

谢谢各位~~~~！
API还不会用~~~！
我试试~~~~~！

Answer 7

能给我具体的用API函数播放MID的代码吗？？
谢谢~~~！！

Answer 8

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim IsMusicOn As Boolean
Dim RetValue As LongPrivate Sub Form_load()
 RetValue = mciSendString("OPEN " & App.Path & "\88.mid TYPE SEQUENCER ALIAS BackgroundMusic", "", 0, 0)
                        MCIStatusLen = 15
                        MCIStatus = String(MCIStatusLen + 1, " ")
                        RetValue = mciSendString("STATUS BackgroundMusic MODE", MCIStatus, MCIStatusLen, 0)
                        If UCase(Left$(MCIStatus, 7)) = "STOPPED" Then
                            RetValue = mciSendString("PLAY BackgroundMusic FROM 0", "", 0, 0)
                        End If
end subPrivate Sub Form_Unload(Cancel As Integer)
    IsMusicOn = False
    RetValue = mciSendString("CLOSE BackgroundMusic", "", 0, 0)End Sub