Kleine Hilfe bei Animationsproblem

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Linkai.

    Kleine Hilfe bei Animationsproblem

    Hallo ihr lieben,
    ich steh grad mal wieder ein wenig auf dem Schlauch.

    Ich versuche eine kleine Textanimation zu Programmieren, doch die Form reagiert nicht richtig. Hier mal der kleine Code:

    VB.NET-Quellcode

    1. ​
    2. Public Class animation
    3. Dim _tl As New List(Of ListViewItem)
    5. Dim _th1 As New Threading.Thread(AddressOf init)
    6. Public elapsedRounds As Integer = 0
    8. Private Sub animation_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    9. Label1.Text = ""
    10. For Each _team In teamsModul.teamList
    11. _tl.Add(_team)
    12. Next
    14. _th1.Start()
    16. End Sub
    18. Sub init()
    19. Dim _random As New Random
    20. Do Until elapsedRounds >= 500
    21. Me.Invoke(Sub() Label1.Text = _tl.Item(_random.Next(0, _tl.Count - 0)).Text)
    22. elapsedRounds += 1
    23. Threading.Thread.Sleep(100)
    24. Loop
    25. Me.Invoke(Sub() Label1.Text = teamsModul.acceptedTeam)
    26. Threading.Thread.Sleep(1500)
    27. Me.Close()
    28. End Sub
    30. End Class

    Es existieren hier nur die Form und das Label, welches eine schnelle Wechselfolge durch die Texte der Teamliste als animation zu Verfügung stellt.
    Viele Frauen kamen, viele sind gegangen, eine ist geblieben 12.5.12 <3 ich liebe dich Schatz :love: :love:

    Nimm nen Timer für sowas. Dein Programm "hängt" so lange, bis die Schleife fertig ist.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Das habe ich davor auch schon versucht, der hat leider auch zu keinem guten Erebnis geführt. Ich versuchs aber gerne noch einmal. Code folgt in wenigen minuten.


    #edit

    VB.NET-Quellcode

    1. ​
    2. Public Class animation
    3. Dim _tl As New List(Of ListViewItem)
    4. Dim WithEvents _timer As Timer
    5. Dim _th1 As New Threading.Thread(AddressOf init)
    6. Public elapsedRounds As Integer = 0
    8. Private Sub animation_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    9. Label1.Text = ""
    10. For Each _team In teamsModul.teamList
    11. _tl.Add(_team)
    12. Next
    13. ' init()
    14. _th1.Start()
    16. End Sub
    18. Sub init()
    19. _timer = New Timer
    20. _timer.Interval = 300
    21. _timer.Start()
    23. End Sub
    25. Private Sub _timer_Tick(sender As Object, e As EventArgs) Handles _timer.Tick
    26. Dim _random As New Random
    27. If elapsedRounds >= 50 Then
    28. Me.Invoke(Sub() Label1.Text = teamsModul.acceptedTeam)
    29. Threading.Thread.Sleep(1500)
    30. Me.Close()
    31. Else
    32. Me.Invoke(Sub() Label1.Text = _tl.Item(_random.Next(0, _tl.Count - 0)).Text)
    34. End If
    36. elapsedRounds += 1
    38. End Sub
    40. Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
    42. End Sub
    43. End Class


    Gleiches Ergebnis
    Viele Frauen kamen, viele sind gegangen, eine ist geblieben 12.5.12 <3 ich liebe dich Schatz :love: :love:

    @Linkai Lass das Threading, Invoke und Sleep weg. Nen einfacher Timer langt :)
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

Facebook
Telefonspende