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

chraaa 2003-06-23 04:38:26

现有一个音乐文件：yy.mid

在程序中怎么处理才能使系统一打开就有音乐？

需要什么函数？
需要怎么添加代码？

谢谢！

...全文

51 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

chraaa 2003-06-23

打赏
举报

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

cnhgj 2003-06-23

打赏
举报

你在部件里添加windows media player

然后工具箱会多一个mediaplayer的控件，拖放到窗体，然后就像我上面写的那样，

刚才试了。肯定没错

chraaa 2003-06-23

打赏
举报

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

我看不懂呀

chraaa 2003-06-23

打赏
举报

Dim mediaplayer1 As mediaplayer
mediaplayer1.FileName = "G:\myproject\背景音乐.mid"
mediaplayer1.Play

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

csdngoodnight 2003-06-23

打赏
举报

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