VFP 愛用者社區

[goto-dream]

用VFP編製多媒體歌曲的點播器
http://202.195.143.200/gonggong/800/vfp/jishu/011.htm


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
　　 這樣就建立了一個完整的歌曲點播器，運行表單後，只需在下拉列表框中選擇一首歌曲後，單擊「播放」按鈕，即進行播放。