在通用中聲明:
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
接著在form 的 load 事件中寫如下代碼:
Call PlaySound(App.Path + "音樂名字.wav", 0&, &H1)//必須在當前文件夾下
第二:添加Windows Media Player 控件
把Windows Media Player 控件visible 屬性設置為false
url 屬性設置為 音樂文件的絕對路徑並且加上音樂文件名字
或者在load 事件中設置此屬性
第三:添加 real player 控件
visible 屬性設置為 false
註意,此時設置的是 source 屬性為音樂文件而不是url屬性
第四:microsoft multimedia control 6.0控件
設置相關屬性