VB问题！！奇急！！在线等！！高分！！！

来源：百度知道 编辑：UC知道 时间：2024/06/05 05:54:51
我想用mediaplayer控件来编个播放器，然后使用slider控件为进度条，为什么 mediaplayer的duration属性不能赋值给slider的max属性？发生错误时max的属性值是0
太郁闷了，我的是9.0版的wmp。
不是，我想自己制作进度条。
我将控件的uimode设置为NONE的。

待wmp加载完歌曲方可赋值
Private Sub Form_Load()
WindowsMediaPlayer1.URL = "z:\*.mp3"
End Sub
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
If NewState = 13 Then Slider1.Max = WindowsMediaPlayer1.currentMedia.duration
End Sub

wmp 本身 不是 有 进度条 嘛？

设置 一下

祝你顺利