Button mit Timer deaktivieren und wieder aktivieren

  • VB.NET

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von Dancger.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Timer1.Interval = 10000
    5. Timer2.Interval = 1000
    6. Button1.Text = 10
    7. Timer2.Start()
    8. Timer1.Start()
    9. Button1.Enabled = False
    10. End Sub
    12. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    13. Button1.Enabled = True
    14. Timer1.Stop()
    15. End Sub
    17. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. Button1.Text = 10
    20. Timer1.Start()
    21. Timer2.Start()
    22. Button1.Enabled = False
    23. End Sub
    25. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    26. Button1.Text -= 1
    28. If Button1.Text = 0 Then
    29. Button1.Text = "done"
    30. Timer2.Stop()
    31. End If
    33. End Sub
    34. End Class


    Nun ist aber alles so wie es sein soll :)
    Selbst getestet, mehrfach wiederholbar, wie gewünscht.

    Viel Spaß
    Bitte keine VB-Fragen üb... Ach scheiß drauf, mich fragt ja eh keiner.

    @require: War das eben zu früh / zu spät für Dich oder hast Du tatsächlich noch nix von Option Strict On gehört?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    noch nix von Option Strict On

    Hatte nich EDR oder so nen Link in der Signatur, welche Strict On erklärt? *such*

    @require
    - Unsauber programmiert
    - Wieso 2 Timer? Der Timer mit dem niedrigsten Interval reicht vollkommen aus. Da braucht's nur ein bisschen mehr Logik.

    @TE
    Übernimm diesen Code, weil:
    - saubere Trennung von Text und Zahl
    - Nur ein Timer (Viele Timer belasten den Computer nur unnötig)

    Code:

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. 'Variablen
    5. Private Counter As Integer = 10
    7. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    9. 'Button deaktivieren
    10. Button1.Enabled = False
    12. 'Timer Interval setzen (1 Sekunde) und starten
    13. Timer1.Interval = 1000
    14. Timer1.Start()
    16. End Sub
    18. Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
    20. 'Runterzählen, wenn nicht 0, ansonsten Button aktivieren und Text ändern
    21. If Not Counter = 0 Then
    22. Counter -= 1
    23. Button1.Text = "Bitte warten (" & Counter.ToString & ")"
    24. Else
    25. Button1.Enabled = True
    26. Button1.Text = "Mach etwas"
    27. End If
    29. End Sub
    31. Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
    33. 'Button deaktivieren
    34. Button1.Enabled = False
    36. 'Hier kommt dein Code hin
    37. MessageBox.Show("Welcher Lauch hat den Button gedrückt?")
    39. 'Counter zurücksetzen - ggf. Button Text ändern
    40. Button1.Text = "Bitte warten (10)"
    41. Counter = 10
    43. End Sub
    45. End Class


    Bemerkung: Wieso hat der VB Tag so Probleme beim "richtigen" highlighten...?!?

    Greez Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dancger“ () aus folgendem Grund: Rechtschreibung FTW!

Facebook
Telefonspende