打印本文 打印本文  关闭窗口 关闭窗口  
用VFP编制多媒体歌曲的点播器
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:51:28  文章录入：杜斌  责任编辑：杜斌
　　1．首先建立一个包含歌曲信息的数据库Mid．dbf，该数据库中有两个字段，一个是Midname字段，长度为20个字符，存放的是Mid音乐文件的中文歌曲名（如“水中花”）；另一个是Filename字段，长度为8个字符，存放的是Mid文件的文件名（不含扩展名）。 建立好数据库后，把Mid文件音乐文件的信息输入数据库中。注意：所有的歌曲文件要与程序和数据库存放在一个目录中。

　　 2．建立一个表单Form1，在数据环境中添加Mid．dbf，设定Form1的caption的属性为“多媒体歌曲点播器”，编写Form1的load过程：
　　 setlibrarytofoxtools．fll
　　 publicPlaySound
　　 PlaySound=REGFN（″MCIExecute″，″C″，″I″，″MSYSTEM″）

　　 3．建立一个组合框Combo1，把Style的属性设定为2（下拉列表框），把Displayvalue的属性设定为Mid．dbf信息库中的第一首歌的歌曲名，把Rowsource的属性设定为Midname，把Rowsourcetype的属性设定为6（字段）。

　　 4．在下拉列表框上方建立一个标签Label1，把caption的属性设定为“请点播歌曲：”。

　　 5．建立第一个按钮（Command1），设定caption的属性为“播放”，编写Click的过程：
　　 midt=″Open″
　　 midw=″TypeSEQUENCER″
　　 Locateformidname=thisform．combol．value
　　 midd=midt＋space（1）＋rtrim（filename）＋″．mid″＋space（1）＋midw
　　 =CALLFN（PlaySound，midd）
　　 =CALLFN（PlaySound，″play″＋rtrim（filename）＋″．mid″）
　　 thisform．combol．enabled=．F．

　　 6．建立第二个按钮（Command2），设定caption的属性为“停止”，编写Click的过程：
　　 =CALLFN（PlaySound，″close″＋rtrim（filename）＋″．mid″）
　　 thisform．combol．enabled=．T．

　　 7．建立第三个按钮（Command3），设定caption的属性为“退出”，编写Click的过程：
　　 relethisform
　　 clearevents
　　 setlibraryto
　　 closeall
　　 这样就建立了一个完整的歌曲点播器，运行表单后，只需在下拉列表框中选择一首歌曲后，单击“播放”按钮，即进行播放。
打印本文 打印本文  关闭窗口 关闭窗口