Mp3 Scrollbar

[TanTrazz]

Im making a mp3 player .

Im using windows media player .

I don't want to see the windows mediaplayer. Visible = False

I wanne link the Tracker from the media player to a flatscrollbar or a Slider.

How can i do that



Tnx TanTrazzzz

[Wak]

I made my own MP3 a little while back, and I used the api though. When I came around to the slider, I just decided to make my own, because it looked better than the default windows substitute, and it was smaller than including an ocx. I still have the code if you want it, you should consider this.??

[Optic]

please post the code for your slider. It would be greatly appreciated

[TanTrazz]

The Source

Thats it i don't know how i make that


Will ya help me Wak

Tnx TanTrazz

[Wak]

You need these controls
tmrSlider : timer control
imgBack : image control, which the cog slides on
imgSlider : the actual cog which slides, can be a picture
lblTitle : label which shows the current percentage

Option Explicit
Dim xFind As Integer
Private iMax As Integer
Dim blnCheck As Integer
Private iValue As Integer

Event CogMoved()
Event CogMoving()

Private Sub imgSlide_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then xFind = X
    RaiseEvent CogMoving
End Sub

Private Sub imgSlide_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If blnCheck = True Then Exit Sub
    If Button = 1 Then imgSlide.Move imgSlide.Left + (X - xFind)
End Sub

Private Sub imgSlide_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent CogMoved
End Sub

Private Sub tmrSlider_Timer()
    If imgSlide.Left < 0 Then
        imgSlide.Left = 0
        blnCheck = True
    Else
        blnCheck = False
    End If
    
    If (imgSlide.Left + imgSlide.Width) > imgBack.Width Then
        imgSlide.Left = (imgBack.Width - imgSlide.Width)
        blnCheck = True
    Else
        blnCheck = False
    End If
    
End Sub

Property Get Value() As Double
    Dim iAns As Double
    Dim iTemp As Double
    Dim iPos As Double
    iTemp = imgBack.Width / 100
    iPos = (imgSlide.Left + (imgSlide.Width / 2)) / iTemp
    iTemp = (iMax) / 100
    Value = (iPos * iTemp) * 100
    If iMax = 0 Then Value = 1
End Property

Property Let Value(i As Double)
    If iMax < i Then i = iMax
    Dim iAns As Double
    Dim iTemp As Double
    Dim iPos As Double
    iTemp = iMax / 100
    iPos = i / iTemp
    iTemp = (imgBack.Width - imgSlide.Width) / 100
    iValue = i
    imgSlide.Left = (iPos * iTemp)
End Property

Property Get Max() As Integer
    Max = iMax
End Property

Property Let Max(i As Integer)
    iMax = i
End Property

Property Get text() As String
    text = lblTitle.Caption
End Property

Property Let text(sText As String)
    lblTitle.Caption = sText
End Property

Private Sub UserControl_Initialize()
    imgBack.Width = UserControl.Width
    UserControl.Height = imgBack.Height
    lblTitle.ForeColor = RGB(91, 91, 255)
    lblTitle.Left = imgBack.Width / 2 - lblTitle.Width / 2
End Sub

Private Sub UserControl_Resize()
    imgBack.Width = UserControl.Width
    UserControl.Height = imgBack.Height + 20
    lblTitle.Left = imgBack.Width / 2 - lblTitle.Width / 2
End Sub