Mit Timer Tick Panel wählen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Wüschd.

    Mit Timer Tick Panel wählen

    Hallo,
    ich habe ein Problem. Ich habe 15 Panels die sich jede Sekunde in der Höhe ändern sollen. Also in der ersten Sekunde ändert sich Panel1 in der Höhe in der 2 Panel2. Ich packe es jede Sekunde ein Panel zu ändern z.B. Panel1 ändert sich je nach Wert jede Sekunde. Doch weiß ich nicht wie ich den Wechsel der Panels bei jeder neuen Sekunde anzeige.
    Danke im Vorraus

    genau so habe ich es vor, doch wie. Meine erste Idee wäre gewesen mit Panelx und das x ist der Zähler aber dies ging nicht. Und jetzt hab ich es mit If ausprobiert doch dies gibt ein riesiger block hat nicht noch jemand eine kürzere Lösung?

    Am einfachsten geht es wenn Du im Programm die Panels selber dynamisch erzeugst und gleich in einer Liste abspeicherst. Aber Du scheinst die ja schon fest auf der Form gezeichnet zu haben, also musst Du sie per Programm in eine Liste packen:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim PanelList As New List(Of Panel)
    3. Dim index As Integer = -1
    4. Dim WithEvents tim As New Timer
    6. ' form load
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. ' Liste der verwendeten Panels erstellen
    9. For Each c As Control In Me.Controls
    10. If TypeOf (c) Is Panel Then PanelList.Add(CType(c, Panel))
    11. Next
    12. End Sub
    14. Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
    15. ' timer ein/ausschalten
    16. tim.Interval = 1000
    17. tim.Enabled = Not tim.Enabled
    18. End Sub
    20. ' timer event
    21. Sub tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tim.Tick
    22. ' index erhöhen
    23. index = (index + 1) Mod PanelList.Count
    24. ' panel(index) position verändern
    25. PanelList.Item(index).Top -= 5
    26. End Sub
    27. End Class

Facebook
Telefonspende