Media speler met progressbar

[woellie123]

Hallo,
Ik ben bezig met een MP3 speler te maken, maar nu heb ik er een vraag over:
Ik wil graag dat de media player "onzichtbaar" word, dit heb ik nu al door in het form1.load dit toe te voegen:

AxWindowsMediaPlayer1.Hide()

Nu wil ik een progressbar toevoegen die weergeeft hoe ver het liedje is met spelen.
Ik heb er al een toegevoegd, maar weet iemand de code om het echt te laten werken?
Ik heb zelf al leen timer toegevoegd omdat ik dacht dat dit nodig was om het te laten werken. Maar daar loop ik dus vast. Moet ik soms eerst wat importeren of zo?
Alvast bedankt!

 

[gille]

Hiermee moet het wel lukken:

Legende:
prbDuration = Progressbar
wmpPlayer = Windows Media Player
tmrDuration = Timer

    Private Sub tmrDuration_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrDuration.Tick
        'adjust trackbar1 value for current media position
        If wmpPlayer.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            Me.prbDuration.Value = Me.wmpPlayer.Ctlcontrols.currentPosition
        End If
    End Sub

    Private Sub wmpPlayer_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles wmpPlayer.PlayStateChange
        If Me.wmpPlayer.playState = WMPLib.WMPPlayState.wmppsBuffering Or Me.wmpPlayer.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            ' set trackbar1 min and maximum values
            Me.prbDuration.Minimum = 0
            Me.prbDuration.Maximum = Me.wmpPlayer.currentMedia.duration
            Me.tmrDuration.Start()
        ElseIf Me.wmpPlayer.playState = WMPLib.WMPPlayState.wmppsMediaEnded Or Me.wmpPlayer.playState = WMPLib.WMPPlayState.wmppsStopped Then
            Me.prbDuration.Value = 0
            Me.tmrDuration.Stop()
        End If
    End Sub

Als er problemen zijn, meld je het maar!

 

[woellie123]

Hallo,
Bedankt voor de code maar, de code werkt niet helemaal.
Toen ik 'm aan testen was, ging de progressbar wel lopen, maar als ie aan het einde komt krijg ik een error, (het liedje was nog niet afgelopen en speelt dus vrolijk verder...) Er staat dat er geen minimum en maximum is ingesteld, dus heb ik bij de code:
Private Sub tmrDuration_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrDuration.Tick
'adjust trackbar1 value for current media position
If wmpPlayer.playState = WMPLib.WMPPlayState.wmppsPlaying Then
Me.prbDuration.Value = Me.wmpPlayer.Ctlcontrols.currentPosition
End If
End Sub
dit toegevoegd: (voor Me.prpDuration.Value = ...........)
Me.prbDuration.Minimum = 0
Me.prbDuration.Maximum = 100
Maar dan krijg ik bij dit een error:
Me.prbDuration.Value = Me.wmpPlayer.Ctlcontrols.currentPosition

Wat moet ik hier aan doen?
P.s. volgens mij staat het knopje met "Code" er niet dus ik moest het wel zo doen, in plaats van een kader...