如何使用MCI多媒体控件

Question

'请试验下面的看看
mci.devicetype="--"
mci.filename=commondialog1.filename
mci.command="close"
mci.command="open"
mci.command="play"

Answer 1

’或用api
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Load() '播放 back.mid
    mciSendString "close MyWav", vbNullString, 0, 0
    mciSendString "open back.mid alias MyWav", vbNullString, 0, 0
    mciSendString "play MyWav", vbNullString, 0, 0
End Sub
Private Sub Command1_Click() '关闭
    mciSendString "close MyWav", vbNullString, 0, 0
End Sub