Alle Timer beenden

  • VB.NET

Es gibt 34 Antworten in diesem Thema. Der letzte Beitrag () ist von MrYannis.

    Alle Timer beenden

    Hallo!
    Habe in meinem Programm jetzt schon 14 Timer (es sollen ca. 100 werden...)
    Gibt es eine möglichkeit alle Timer,die in dem Fenster vorhanden sind aufeinma zu beenden?(also nicht jeden einzeln)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „MrYannis“ ()

    Du könntest die maximal Anzahl in einer Variable speichern, dann mit Me.Controls("Timer" & i) alle durchgehen und stoppen.
    Aber so viele Timer sind schlecht, verlangsamen den Prozessor und sind auch kein guter Stil, also rate ich dir davon ab !

    Hallo MrYannis,

    unabhängig davon das das nichts werden wird.
    (Ein Programm mit mehr als einem Timer ist meist schlecht konzipiert.)

    Falls der von Nibel gezeigte Weg Funktioniert (habs nicht probiert)
    Geht das auch ohne Zähler mit einer

    VB.NET-Quellcode

    1. For Each ....
    3. Next

    Schleife.

    Gruss

    mikeb69

    das das nichts werden wird.
    ein timer verschlechtert die performance.
    ich will gar nicht wissen, wie stark diese bei 100 timern leitet...

    wofür brauchst du denn so viele timer?
    :P Mfg Aligator :P

    hmmm...also mir fällt leider kein weg ein,wie das Programm mit einem Timer laufen soll...
    Das Programm sendet (sendkey) ein Wort,und entert anschließend zweimal,danach soll es wieder ein Wort versenden(das alte Wort ist gelöscht) und immer so weiter...

    MrYannis schrieb:

    Habe in meinem Programm jetzt schon 14 Timer

    Wie alle schon sagten, das sind (mindestens) 13 zuviel

    Die Form.Control Collection zu durchlaufen dürfte auch nicht funktionieren, da Timer keine Controls sind sondern Components, aber nicht ausprobiert.

    Die Methode my.Computer.Keyboard.Sendkeys erlaubt Dir ein ganzes Wort und 2x Enter auf einmal zu schicken

    VB.NET-Quellcode

    1. my.computer.keyboard.sendkeys("Wort~~")

    so ganz grob müsste es doch so gehn, oder?

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim dieListe As List(Of String)
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. 'Array mit den wörtern füllen
    5. '...
    6. '...
    7. '...
    8. '...
    9. '...
    10. Timer1.Start()
    11. End Sub
    13. Dim index As Integer = 0
    14. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    15. 'ich mach jetzt einfach, dass er es in ner Textbox anzeigt, anstatt mit send Keys
    16. TextBox1.Text = dieListe.ElementAt(index)
    17. 'die zwei Enter
    18. '...
    19. '...
    20. If index = dieListe.Count - 1 Then
    21. Timer1.Stop()
    22. End If
    25. index += 1
    27. End Sub
    30. End Class
    :P Mfg Aligator :P

    Also ich habs jetzt nochmal mit deinem Code probiert...
    Ich versteh allles von dem Code ausser "den Array mit Wörtern füllen" was muss ich da genau hinschreiben?
    Und nochmal danke,für den Code.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „MrYannis“ ()

    Bitteschöön

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim dieListe As List(Of String)
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. dieListe.Add("hallo")
    7. dieListe.Add("hello")
    8. End Sub
    10. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    11. Timer1.Start()
    12. ProgressBar1.Visible = True
    13. End Sub
    15. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    16. Form2.Show()
    17. End Sub
    19. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    20. Me.Close()
    21. End Sub
    23. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    24. Timer1.Stop()
    25. ProgressBar1.Visible = False
    26. End Sub
    28. Dim index As Integer = 0
    30. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    32. If Me.MinimizeBox = True Then
    33. TextBox1.Text = dieListe.ElementAt(index)
    34. End If
    35. If index = dieListe.Count - 1 Then
    36. Timer1.Stop()
    37. End If
    38. index += 1
    40. End Sub
    41. End Class

    hmmm, eigendlich richtig.
    aber eines is nich so gut:

    VB.NET-Quellcode

    1. If Me.MinimizeBox = True Then
    2. TextBox1.Text = dieListe.ElementAt(index)
    3. End If
    4. If index = dieListe.Count - 1 Then
    5. Timer1.Stop()
    6. End If
    7. index += 1


    so zählt er ja immer zu dem index +1. auch wen Me.MinimizeBox = False

    also machs so:


    VB.NET-Quellcode

    1. If Me.MinimizeBox = True Then
    2. TextBox1.Text = dieListe.ElementAt(index)
    4. index += 1
    6. End If
    7. If index = dieListe.Count - 1 Then
    8. Timer1.Stop()
    9. End If


    aber ob des die lösung des problems ist, glaub ich nicht....
    :P Mfg Aligator :P