Alle Controls einer Form Enablen/Disablen

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

        
'Alle Controls durchlaufen (im Beispiel sind auf der Oberen Ebene nur Panels)
For Each panel As Control In Me.Controls()
            'Nur wenn es nicht das InitPanel ist
            If Not panel Is PanelInit Then
'Hier werden die Controls jedes Panels durchlaufen
                For Each SubControl As Control In panel.Controls()
'Wenn es ein Button ist enable auf true setzen
                    If SubControl.GetType.Name = GetType(Button).Name Then
'Besser ist wahrscheinlich: If ControlItem.GetType Is GetType(Button) Then
                        SubControl.Enabled = true
                    End If
                Next
            End If
        Next