vb中通过代码实现WindowsMediaPlayer播放器的暂停

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:26:28
说下思路，我的form里有两个WindowsMediaPlayer播放器，我想让其中一个播放的时候另一个暂停，通过一个单击label事件发生~这段代码该怎么写呢？强调：别告我说enable属性，这个打不到目的

Private Sub Label1_Click()
WindowsMediaPlayer1.Controls.pause 'WindowsMediaPlayer1暂停
WindowsMediaPlayer2.Controls.play 'WindowsMediaPlayer2播放
End Sub

Private Aflg As Boolean '当A播放时设成True,否则false
Private Bflg As Boolean '当B播放时设成True,否则false

Private Sub Label1_Click()
If Aflg Then
MediaPlayerA.Pause '暂停
MediaPlayerB.Play '播放
Aflg = false
Bflg = true
Else
MediaPlayerA.Play '播放
MediaPlayerB.Pause '暂停
Bflg = false
Aflg = true
End If
End Sub

WindowsMediaPlayer.pause()

pause()