Oft benötigte Properties von Controls schnell zentral ausfüh

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

      Enum ControlPropList
            VisibleOn
            VisibleOff
            EnabledOn
            EnabledOff
            ClearText
        End Enum

        ''' <summary>
        ''' Änderung von Eigenschaften mehrerer Control-Objekte
        ''' </summary>
        ''' <param name="e"></param>
        ''' <param name="Ctrls"></param>
        ''' <remarks></remarks>
        Private Sub ControlsPropChanger(ByVal e As ControlPropList, ByVal ParamArray Ctrls() As Control)
            For Each Ctrl As Control In Ctrls
                With Ctrl
                    Select Case e
                        Case ControlPropList.ClearText : .Text = String.Empty
                        Case ControlPropList.EnabledOff : .Enabled = False
                        Case ControlPropList.EnabledOn : .Enabled = True
                        Case ControlPropList.VisibleOff : .Visible = False
                        Case ControlPropList.VisibleOn : .Visible = True
                    End Select
                End With
            Next
        End Sub