怎么在一个系统中添加音乐？

Question

现有一个音乐文件：yy.mid在程序中怎么处理才能使系统一打开就有音乐？需要什么函数？
需要怎么添加代码？谢谢！

Answer 1

加个mediaplayer控件
mediaplayer1.filename="d:\yy.mid"
mediaplayer1.play
记得好像是这样。。

Answer 2

只是这么写有错误！是不是mediaplayer1需要定义一下？怎么定义？还是其他什么错了？

Answer 3

“Microsoft ActiveMovie Control”

Answer 4

声明：
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为自定义名称标志。

Answer 5

Dim mediaplayer1 As mediaplayer
    mediaplayer1.FileName = "G:\myproject\背景音乐.mid"
    mediaplayer1.Play为什么执行到mediaplayer1.FileName = "G:\myproject\背景音乐.mid"
就错了呢？

Answer 6

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为自定义名称标志。
我看不懂呀

Answer 7

你在部件里添加windows media player然后工具箱会多一个mediaplayer的控件，拖放到窗体，然后就像我上面写的那样，刚才试了。肯定没错

Answer 8

但是我的是MDI窗体，添加不进去控件呀！