Alle Steuerelemente einer Seite durchlaufen und festlegen ob sie auf Benutzerinteraktionen reagieren können.
'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
Kommentare zum Snippet