VB实现播放背景音乐

神话

播放背景音乐
声明：
Declare Function MCISendString& Lib "MMSYSTEM" (ByVal LPSTRCOMMAND$, ByVal LPSTRRETURNSTR As Any, ByVal WRETURNLEN%, ByVal HCALLBACK%)
开始播放：
R% = MCISendString&("OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN", 0&, 0, 0)
R% = MCISendString&(&quotLAY NN FROM 0", 0&, 0, 0)
R% = MCISendString&("CLOSE ANIMATION", 0&, 0, 0)
停止：
R% = MCISendString&("OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN", 0&, 0, 0)
R% = MCISendString&("STOP NN", 0&, 0, 0)
R% = MCISendString&("CLOSE ANIMATION", 0&, 0, 0)
其中EXAMPLE.MID 为播放的文件，NN为自定义名称标志。

铁拳

mmsystem.dll 是什么时代的东东了呀？现在都用 winmm.dll

你的这些 api 好像有点问题耶。原型应该是
mciSendString 吧。
千万不要误人子弟哦，呵呵。

ljm

windows里只有mmsystem.dll，哪有winmm.dll呀，至少WinXP里没有
VC里有mmsystem.h和winmm.lib , 是和mmsystem.dll对应的,
你记错了吧?

神话

没办法，我开这个版块很多高人都针锋相对啊……天。

铁拳

ljm: Re:VB实现播放背景音乐

windows里只有mmsystem.dll，哪有winmm.dll呀，至少WinXP里没有
VC里有mmsystem.h和winmm.lib , 是和mmsys...

to 3楼的，自己看吧。我所讨论的范围是 vb.

worlddragon

这方法好象只能播wav哦

神话

***.mid