关于VB6播放背景音乐

来源：百度知道 编辑：UC知道 时间：2024/05/25 07:56:51
我用VB做的东西怎么不能播放音乐。。。。
代码应该没问题，用了一个网上找到的mmdedia类
但是我生成文件之后必须要先打开windows media player
然后随便播放一个文件
然后再停止WMP（WMP不能关）
这样我的程序才能正常发出声音。。。。。
这怎么解决？
还有，我用MCI控件时会有该部件许可信息未找到的提示不能用。。。。
这个怎么弄？
谁知道的话告诉我把，谢谢了
更详细的信息可以到QQ331602337
.....我用的是VB6.0
我想问的是怎么解决沃出现的这个问题。。。。。

播放背景音乐
声明：
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&("PLAY 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为自定义名称标志。