如何自动播放背景音乐.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 17 行

你 可 以 将 MMControl1的 Visible属 性 设 置 为 False， 然 后 输 入 下 面 的 代 码 ： 
    Private Sub Form_Load() 
     MMControl1.Notify = False 
     MMControl1.Wait = True 
     MMControl1.Shareable = False 
     MMControl1.DeviceType = "WaveAudio" 
     MMControl1.filename = "C:\WIN98\MEDIA\Ctmelody.wav" 
     
     MMControl1.Command = "Open" 
     MMControl1.Command = "Play" 
    End Sub 
     
    Private Sub Form_Unload(Cancel As Integer) 
     MMControl1.Command = "Close" 
    End Sub 
<END>