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
voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part Me.TrackBar1.Value = Me.AxWindowsMediaPlayer3000.Ctlcontrols.currentPosition
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 Submes valeurs du timer et du trackbar sont a 100
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
merci
Partager