[gelöst] Rekursiver Durchlauf aller Controls von Forms - Ausgabe, Rückgabe aller TextBoxen, Checkboxen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von punkt.

    [gelöst] Rekursiver Durchlauf aller Controls von Forms - Ausgabe, Rückgabe aller TextBoxen, Checkboxen

    'EDIT korrigierte Version
    ------
    liefert alle textboxen und checkboxen eines forms zurück (auch die in groupBox oder tabControls stecken).

    VB.NET-Quellcode

    1. Shared Sub dings(ByVal kontrollen As Control)
    2. If TypeOf kontrollen Is TextBox Then
    3. MsgBox("is txtbox")
    4. ElseIf TypeOf kontrollen Is CheckBox Then
    5. MsgBox("is checkbox")
    6. ElseIf TypeOf kontrollen Is GroupBox Then
    7. MsgBox("is groupbox oder tabcontrol")
    8. For Each element As Control Or element As TabControl In kontrollen.Controls
    9. dings(element)
    10. Next
    11. End If
    13. For Each ctrl In kontrollen.Controls 'rekursiver aufruf
    14. If TypeOf ctrl As Control Is GroupBox Then
    15. dings(ctrl)
    16. End If
    17. Next
    18. End Sub

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „punkt“ ()