Button nach Klicken als Abbrechen umwandeln und alle andern button undürckbar

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Button nach Klicken als Abbrechen umwandeln und alle andern button undürckbar

    Also ich habe 4 buttons wen ich nun ein button drücke soln die andern button grau sein und nicht drückbar sein und auf den button wo ich drücke sol abbrechen stehen .

    Wen ich auf abbrechen gehe soln auch wieder die andern sichtbar sein und so solte es für alle 4 sein .

    - Button 1 drücken
    - 3 Buttons nicht drückbar gemacht
    - Button 1 steht nun Abbrechen da
    - Drück ich auf abbrechen geht wieder alle 4

    und so solte es für alle 4 sein ...



    Mfg markus
    Denksportaufgabe oder was?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private bl As New List(Of Button)
    3. Private Sub AnyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    4. Dim b As Button = DirectCast(sender, Button)
    5. If b.Text = "Drück mich" Then
    6. b.Text = "Abbrechen"
    7. For Each btn As Button In bl
    8. If btn IsNot b Then btn.Enabled = False
    9. Next
    10. Else
    11. b.Text = "Drück mich"
    12. For Each btn As Button In bl
    13. If Not btn.Enabled Then
    14. btn.Enabled = True
    15. End If
    16. Next
    17. End If
    18. End Sub
    19. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    20. For Each b As Control In Me.Controls
    21. If TypeOf b Is Button Then
    22. bl.Add(b)
    23. b.Text = "Drück mich"
    24. AddHandler DirectCast(b, Button).Click, AddressOf AnyButton_Click
    25. End If
    26. Next
    27. End Sub
    28. End Class