Mp3 Scrollbar

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

:confused:

Tnx TanTrazzzz

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.??

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

The Source :rolleyes:

Thats it i don't know how i make that :rolleyes:


Will ya help me Wak :)

Tnx TanTrazz

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

Code:

---

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

---