VFP 愛用者社區

[Ruey]

VFP中實現背景音樂的幾種方法[轉貼]
　　1、利用set bell to
　　VFP5.0的set bell to命令的使用格式不同於FoxPro2.X的格式。在VFP5.0中，它的格式為Set Bell To [cWAVFileName, nDuration]。其中cWAVFileName為一個.WAV文件；nDuration為持續時間（注意該項不可省略，否則會產生語法錯誤）。這樣當在個人程式的初始模組中用set bell to 定向到一.WAV檔後，便可在後面的模組中用？chr（7）來播放該.WAV文件。
　　示例1：
　　set bell on ＆＆使bell有效
　　set bell to′ .WAV檔′,0 ＆＆使bell定向到一個.WAV 文件。注意有單引號
　　?chr(7)
　　＆＆播放該.WAV文件
　　2、利用OLE容器控制項
　　創建一表單，單擊表單控制項工具欄中的“OLE容器控制項”按鈕，然後在表單上適當位置點擊或拖動。在出現的“Insert Object”視窗中選“Creat New”或“Creat From File”，用“Browse”按鈕選取自己的.WAV檔，確定即可。
　　在當前表單中會出現一“喇叭”圖示，設置該圖示的屬性“ AutoActivate”為1，可使每當表單運行時自動播放該.WAV檔，實現背景音樂；設置Height、Width均為0時，可隱藏“喇叭”圖示。
　　3、利用VFP庫Foxtools.fll
　　用=Regfn（）和=Callfn（）可訪問Foxtools.fll中的音頻模組，進行播放音效檔案。
　　示例2：
　　創建一表單，在其Activate事件中輸入下列代碼：
　　public ss ＆＆定義一總體變數ss
　　set library to foxtools.fll ＆＆打開庫Foxtools.fll
　　ss=Regfn(″SndPlaySound″,″CI″,″I″,″mmsystem″) ＆＆取得音頻資訊
　　=Callfn(ss,″一.wav檔″,n) ＆＆n=0（1,2,3也可）時只播放一遍，n=9時迴圈播放
　　在其Destroy事件中輸入下列代碼：
　　=Callfn(ss,″″,10) ＆＆停止播放
　　set library to ＆＆從記憶體中釋放庫foxtools.fll
　　4、利用Windows的動態連結程式庫
　　在VFP5.0的安裝目錄samples\classes下，有一類庫samples\classes。其中提供有兩種控制項：視頻和音頻，音頻可以控制播放.WAV和.MID檔，利用它可輕鬆地實現背景音樂。下面給出它的實例。
　　示例3：
　　創建一表單，在表單控制項工具欄中選擇類按鈕，添加VFP5.0中的samples\classes\samples.vbx類庫。此時表單控制項工具欄中會出現SoundPlayer和VideoFrame兩個多媒體控制項。選擇SoundPlayer，在表單上單擊後，設置它的屬性如下：
　　AutoOpen=.t.
　　AutoPlay=.t.
　　AutoRepeat=.t.
　　Class=SoundPlayer
　　Soundfile=指定一.WAV或.MID檔 ＆＆注意沒有引號
　　Visible=.f. ＆＆不可見