首先建立壹個表單(FORM1),然後編寫表單的 Activate過程:
PUBLIC Sound
SET LIBRARY TO Foxtool.FLLSound=Regfn("SndPlaySound","CI","I","Mmsystem")
=Callfn(Sound,"BACK.WAV",1)
再編寫FORM1的Release過程:
=Callfn(Sound,"",10)
SET LIBRARY TO
運行表單後,BACK.WAV就作為背景音樂在後臺播放,關閉表單時音樂自動停止。如果想讓音樂自動循環播放,將Activate過程中最後壹句換為:
=Callfn(Soun,"BACK.WAV",1+8)即可。
2、加入聲音控件(在選項--控件裏添加)
在表單屬性activate寫入如入代碼:
thisform.olecontrol1.visible=.f.
thisform.olecontrol1.doverb(0)
右鍵點加入的聲音圖標(錄音機文檔對象--編輯)出現window自帶播放器插入要播放的文件
運行就可以播放,但是關閉表單不可以停止