表单下实现背景音乐、最简单的代码、
新建一表单、添加activex控件、在弹出框选创建控件、选择windows mediaplayer、双击已添加的activex控件、在endof...事件下编写this.play。然后在表单的init事件下编写thisform.Olecontrol1.visible=.f.thisform.Olecontrol1.url='歌曲名'
注意事项:歌曲必须和表单在同一文件夹下、歌曲名必须和源文件一致:如在文件夹下为a.mp3,则歌曲名也为a.mp3。运行前、必须将默认路径设为该表单所在的文件夹、否则没声音
[ 本帖最后由 beipaoqi555 于 2013-1-5 15:03 编辑 ]