bonjour,
sur mon form j'ai un ecran windows media player ainsi qu'un trackbar. ce que je desire c'est d'avoir le trackbar qui evolue en fonction de la longueur de la video.pour le moment ce que j'ai c'est que le trackbar arrive a la fin et la video continue,et j'ai une erreursur cette ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Me.TrackBar1.Value = Me.AxWindowsMediaPlayer3000.Ctlcontrols.currentPosition
voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
  If Me.AxWindowsMediaPlayer3000.playState = WMPLib.WMPPlayState.wmppsBuffering Or Me.AxWindowsMediaPlayer3000.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            Me.TrackBar1.Minimum = 0
            Me.TrackBar1.Maximum = Me.AxWindowsMediaPlayer3000.currentMedia.duration
            Me.Timer1.Start()
        ElseIf Me.AxWindowsMediaPlayer3000.playState = WMPLib.WMPPlayState.wmppsMediaEnded Or Me.AxWindowsMediaPlayer3000.playState = WMPLib.WMPPlayState.wmppsStopped Then
            Me.TrackBar1.Value = 0
            Me.Timer1.Stop()
 
        End If
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
  Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        AxWindowsMediaPlayer3000.Ctlcontrols.currentPosition = Me.TrackBar1.Value
    End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.AxWindowsMediaPlayer3000.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            Me.TrackBar1.Value = Me.AxWindowsMediaPlayer3000.Ctlcontrols.currentPosition
        End If
        Me.Label1.Text = Me.AxWindowsMediaPlayer3000.Ctlcontrols.currentPositionString
        Me.TrackBar1.Value = Me.AxWindowsMediaPlayer3000.Ctlcontrols.currentPosition
    End Sub
mes valeurs du timer et du trackbar sont a 100

merci