|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 1 樓
|
發表於: 星期一 九月 01, 2003 9:26 pm 文章主題: VFP中實現背景音樂的幾種方法(轉貼) |
|
|
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. &&不可見 _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|