如何向vf表單中添加音樂

1、調用Windows的APT函數SndPlaySound播放聲音文件（.WAV)。

首先建立壹個表單（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自帶播放器插入要播放的文件

運行就可以播放，但是關閉表單不可以停止