Feedback

VB - Alle Controls einer Form Enablen/Disablen

Veröffentlicht von am 3/17/2008
(1 Bewertungen)
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

 

Logge dich ein, um hier zu kommentieren!