UC知道vb进度条 与播放歌曲同步
来源：百度知道 编辑：UC知道 时间：2024/05/30 18:11:44
我想制作一个进度条和MP3播放同步,我那设置错了 请老鸟帮忙
Private Sub Command1_Click()
s = mciSendString("open c:\我的最爱.mp3", 0, 0, 0) '打开文件
s = mciSendString("play c:\我的最爱.mp3", 0, 0, 0) '播放文件
ProgressBar1.Min = LBound(s)
ProgressBar1.Max = LBound(s)
ProgressBar1.Value = True
ProgressBar1.Value = ProgressBar1.Min
是不是使用下面获得对象大小的方法错了, 没获得MP3的大小?
ProgressBar1.Min = LBound(s)
Private Sub Command1_Click()
s = mciSendString("open c:\我的最爱.mp3", 0, 0, 0) '打开文件
s = mciSendString("play c:\我的最爱.mp3", 0, 0, 0) '播放文件
ProgressBar1.Min = LBound(s)
ProgressBar1.Max = LBound(s)
ProgressBar1.Value = True
ProgressBar1.Value = ProgressBar1.Min
是不是使用下面获得对象大小的方法错了, 没获得MP3的大小?
ProgressBar1.Min = LBound(s)
ProgressBar1.Value = True
设置成
ProgressBar1.Visible = True
就直接使用控件嘛. 我都发了一个例子给你了...
ProgressBar1.Value = True肯定错了，True=-1，Progressbar的Value设置成负数肯定是不对的。