VB制作的多媒体播放器如何显示进度（代码）

用 HScroll 控件啊

VB制作的多媒体播放器如何显示进度（代码）

可以用进度条来显示
'工程部件里添加 Microsoft Windowd common controls6.0(sp4)
'添加 Picture1 ProgressBar1 ProgressBar2 Command1 共 4个控件

Private Sub Form_Load()
Picture1.ForeColor = vbWhite
Picture1.FontBold = True
Picture1.AutoRedraw = True
ProgressBar1.Min = 0
ProgressBar1.Max = 20
End Sub

Private Sub Command1_Click()
Dim i As Long, j As Long
For i = 1 To 20
For j = 1 To 100000
DoEvents
Next
Call Progress(i * 5)
ProgressBar1.Value = i
Next
End Sub

Private Sub Progress(percent As Long)
Dim msg As String
msg = percent & "%"
With Picture1
.Cls
Picture1.Line (0, 0)-(percent / 100 * .ScaleWidth, .ScaleHeight), vbBlue, BF
.CurrentX = (.ScaleWidth - .TextWidth(msg)) / 2
.CurrentY = (.ScaleHeight - .TextHeight(msg)) / 2
Picture1.Print ms