up
我的程序的关键语句:
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 LongmciSendString "open " & Me.txtSourceFile.Text & " alias MEDIA", vbNullString, 0, 0
mciSendString "play MEDIA", vbNullString, 0, 0