Hi zusammen!
Bin momentan dabei, mir einen schicken Player zu basteln, allerdings weiß ich jetzt grad nicht mehr weiter
Läuft alles perfekt bis auf eine Sache:
Ich hol mir quasi nur per Timer die aktuelle Position und lass somit die TrackBar schön mitschubsen.
Allerdings merkt man, dass der Film alle 100ms bzw. 500ms ruckelt, je nachdem wie ich die Interval einstelle..
Sobald ich allerdings die Zeile (Im Code markiert!) weglasse, klappt alles wunderbar! (natürlich dann ohne die Trackbar!)
Ich denke auch mal, dass es an diesem Code liegt, mit dem ich den Film ala VLC-Player an die gewünschte Position bringen kann.
Denke mal, die vertragen sich nicht, die beiden Codes. Vorschläge zum Umgehen bzw. Verbessern?
Wäre euch 1000x dankbar!!
Schönes WE schonmal..
EDIT:
Oke, habs raus:
Ich benutze die GTrackBar, nicht die "normale" von VB.NET.
Wenn ich das alles mit der originalen mache, klappt ohne Probleme!
Ich schätze mal es liegt daran, dass die VB.NET TrackBar das Event "TrackBar1_Scroll" benutzt, während die GTrackBar "GTrackBar1_ValueChanged" nimmt. Scroll fuinktioniert bei der irgendwie nicht :(
Edit by Manschula: Die Farbe Rot ist den Moderatoren vorbehalten! --> Farbe entfernt
Bin momentan dabei, mir einen schicken Player zu basteln, allerdings weiß ich jetzt grad nicht mehr weiter
Läuft alles perfekt bis auf eine Sache:
VB.NET-Quellcode
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
- TrackBar1.Value = CInt(AxWindowsMediaPlayer1.Ctlcontrols.currentPosition) 'HIER HACKT DAS GANZE!!!
- If AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString.Length <= 7 Then
- Dim CurrentLength As String = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
- Dim MaxLength As String = AxWindowsMediaPlayer1.currentMedia.durationString
- lbl_duration.Text = "00:" & CurrentLength & " / " & MaxLength
- Else
- Dim CurrentLength As String = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
- Dim MaxLength As String = AxWindowsMediaPlayer1.currentMedia.durationString
- lbl_duration.Text = CurrentLength & " / " & MaxLength
- End If
- End If
- End Sub
Ich hol mir quasi nur per Timer die aktuelle Position und lass somit die TrackBar schön mitschubsen.
Allerdings merkt man, dass der Film alle 100ms bzw. 500ms ruckelt, je nachdem wie ich die Interval einstelle..
Sobald ich allerdings die Zeile (Im Code markiert!) weglasse, klappt alles wunderbar! (natürlich dann ohne die Trackbar!)
Ich denke auch mal, dass es an diesem Code liegt, mit dem ich den Film ala VLC-Player an die gewünschte Position bringen kann.
Denke mal, die vertragen sich nicht, die beiden Codes. Vorschläge zum Umgehen bzw. Verbessern?
Wäre euch 1000x dankbar!!
Schönes WE schonmal..
EDIT:
Oke, habs raus:
Ich benutze die GTrackBar, nicht die "normale" von VB.NET.
Wenn ich das alles mit der originalen mache, klappt ohne Probleme!
Ich schätze mal es liegt daran, dass die VB.NET TrackBar das Event "TrackBar1_Scroll" benutzt, während die GTrackBar "GTrackBar1_ValueChanged" nimmt. Scroll fuinktioniert bei der irgendwie nicht :(
Edit by Manschula: Die Farbe Rot ist den Moderatoren vorbehalten! --> Farbe entfernt
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Manschula“ ()