809
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load ()
' Set properties needed by MCI to open.
MMControl1.Notify = FALSE
MMControl1.Wait = TRUE
MMControl1.Shareable = FALSE
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "C:\WINDOWS\MMDATA\GONG.WAV"
'打开 MCI WaveAudio 设备。
MMControl1.Command = "Open"
End Sub
Private Sub Form_Unload (Cancel As Integer)
MMControl1.Command = "Close"
End Sub