VB WindowsMediaPlayer控件

来源：百度知道 编辑：UC知道 时间：2024/05/21 05:39:19
在label里面有一个时间12：00：00 一个进度条 一个 WindowsMediaPlayer控件

WindowsMediaPlayer的url已经设置好了，现在开始播放器歌曲 进度条也可以和WindowsMediaPlayer控件的进度条同步，现在需要 开始播放的时候label控件里面的时间秒加1 只要歌曲播放完毕，拉动进度条的时候里面的时间也会随拉动的大小，自动调整时间。。等于说就是 WindowsMediaPlayer的进度条和VB自带的进度条和 label里面的时间同步。

Private Sub Timer1_Timer()
ccrpProgressBar1.value = Int(WindowsMediaPlayer1.Controls.currentPosition)
ccrpProgressBar1.Max = Int(WindowsMediaPlayer1.currentMedia.duration + 1)
End Sub

Private Sub Timer2_Timer()
On Error Resume Next

Label1.Caption = CDate("00:" + WindowsMediaPlayer1.Controls.currentPositionString) + CDate(Label14.Caption)
End Sub

为什么不用mediaplayer的进度条，非要用label来控制？
这个功能可以实现，你查一下mediaplay 的sdk的说明

我手头没有资料，好像是Position这个参数负责控制的，这种技术问题你最好去csdn去问下

毛感平绒面料 成现代人新宠

直接不要这个控件

直接不要这个控件