关于*.mid的问题

[无所不能的名侦探]

在vb中不使用控件，如何实现播放*.mid,需要用到那些API函数，请告诉我具体如何实现。

[hycao]

Option Explicit

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

Private Sub Command1_Click()
mciSendString "open c:\gigue.mid alias myMIDI", vbNullString, 0, 0
mciSendString "play myMIDI", vbNullString, 0, 0
End Sub

Private Sub Command2_Click()
mciSendString "close myMIDI", vbNullString, 0, 0
End Sub

[无所不能的名侦探]

在用 sndPlaySound 播放*wav格式文件可以播放，
*.mid还是不能正常播放
有详细一点的解决办法吗？

[wooden7blue]

有控件为什末不用???????????????????????????????????

[hycao]

我的代码经过测试，应该是可以用的。你只要把c:\gigue.mid改成自己的midi文件的路径名和文件名就行了。

[huxiangming]

播放MIDI格式文件

　　播放MIDI格式文件时，你必须在程序窗口的通用声明部分中或标准模块中添加如下的声明语句：

Private Declare Function mciExecute Lib
"winmm.dll" Alias"mciExecute"（ByVal lpstr－
Command As String）As Long

　　API，函数mciExecute只有一个参数：CommandString，它是一个命令字符串，用于表明对声音文件播放的命令，例如，要完整播放声音文件"C:\Win－dows\Media＼Canyon.mid"，只需要用以下一些语句即可实现：

Dim Return Value As Long
ReturnSound Value＝mciExecute（"play
C：＼Windows＼Media＼Canyon.mid"）

　　如果只播放MIDI格式文件的部分，就可以使用from…to…这种语句格式，例如：需要播放 CANYON．MID文件的20毫秒到5OO毫秒的部分，可以使用如下的语句：

Dim Return Value As Long
ReturnSoundValue＝mciExecute（"plny C:\
WINDOWS\MEDLA\CANYON.MID from 2y to 500"）

　　

[无所不能的名侦探]

好像还是不行，可以详细点吗？

[无所不能的名侦探]

hycao(海草)，你好，你的代码中的“c:\gigue.mid”我测试时就换成我需要的mid文件路径，不过昨天一直都不行，不知道什么原因。现在好了，谢谢，
同时也感谢huxiangming(老虎)