请教！如何控制Windows Media Player的播放、暂停、停止？

sxgaobo

用Me.MediaPlayer.FileName = "FileName"可以设置Windows Media Player播放的文件。如何用代码控制Windows Media Player的播放、暂停、停止啊？

sxgaobo

高手出招指点一、二啊！

sxgaobo

帮帮忙啊！

wu8313

可以播放媒体，但不是使用 media 控件的。

都是我搜来的代码。

部分代码：
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

Dim Multimedia As New Mmedia

'通过一个通用的类模块，来播放 avi mid wav 类型的文件 。还可以定义另外的媒体类
'不需要考虑媒体是否存在的问题，无需写 错误捕获代码
'应该检测声卡是否存在和是否禁用的问题，无声卡则程序死掉

Private Sub Form_Timer()

Do While Multimedia.Status = "stopped"

     Multimedia.Wait = False
     '针对不同的媒体类型选择使用不同的代码
    ' Multimedia.mmOpen CurrentProject.Path & "\wav\ringin.wav"
    ' Multimedia.mmOpen CurrentProject.Path & "\mid\TESTSND.mid"
       Multimedia.mmOpen CurrentProject.Path & "\avi\earth.avi"
     Multimedia.mmPlay

Loop


End Sub

Private Sub playing_return_Click()

Call mciSendString("close all", 0, 0, 0)

If HasSoundCard = True Then
'Me.TimerInterval = 100 '如果你要循环播放的话，启用这一句就可以
Multimedia.Wait = False
'针对不同的媒体类型选择使用不同的代码
'Multimedia.mmOpen CurrentProject.Path & "\wav\ringin.wav"
'Multimedia.mmOpen CurrentProject.Path & "\mid\TESTSND.mid"
Multimedia.mmOpen CurrentProject.Path & "\avi\earth.avi"

Multimedia.mmPlay

Else
Me.TimerInterval = 0
MsgBox "声卡不存在或者被禁用", vbInformation, "媒体播放提示"
End If
End Sub

Private Sub stop_Click()

Me.TimerInterval = 0

'可以使用这一句来结束媒体的播放，无论它是否正在循环播放
Call mciSendString("close all", 0, 0, 0)

End Sub