100分寻求：自制ActiveX OCX控件源码！

[东方之珠]

1、能够实现进度条的基本功能；2、能够实现用鼠标拖动的基本功能。

[guyehanxinlei]

楼主想做什么？

[东方之珠]

播放器的时间进度及鼠标拖动。

[toury]

帮你简单写了一个:

Private Sub UserControl_Initialize()
lblFull.Move 0, 1, UserControl.ScaleWidth - 1, UserControl.ScaleHeight - 5
lblProgress.Move 0, 0, 0, lblProgress.Height

End Sub

Public Function Refresh(ByVal lngFull As Long, ByVal lngNow As Long) As String
Dim ret As Double

ret = lngNow / lngFull: If ret > 1 Then ret = 1
lblProgress.Width = CLng(UserControl.ScaleWidth * ret)
Refresh = Format$(ret, "##%")
End Function
Public Sub InitialX()
UserControl_Initialize
End Sub
-----------------------------------
label:
lblProgress'表示进度
lblFull'表示全长

用法:
调用Refresh函数

lngFull :音频文件全长时间
lngNow :已经播放的时间

[toury]

鼠标拖动也不难做,再放个image上去,装一个漂亮小图片指示当前进度;你可以自己加工一下,没时间帮你写全,呵呵

[嗷嗷叫的老马]

这个好象还是比较简单吧...?

顶顶

[Ankeyfu]

这个好象还是比较简单吧...?

顶顶