[Visual Basic]
Private Function Objectanalysis_readonly( _ 
   ByRef ctl As Object _ 
) As String

Parameter

ctl

Quellcode

[Visual Basic]
        Private Function Objectanalysis_readonly(ByRef ctl As Object) As String 
            Dim typ As System.Type = ctl.GetType 
            Select Case LCase(typ.Name) 
                Case "splitcontainer" 
                    ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, "")) 
                    Dim tmpsplit As SplitContainer = ctl 
                    For Each ctrl As Object In tmpsplit.Panel1.Controls 
                        Objectanalysis_readonly(ctrl) 
                    Next 
                    For Each ctrl As Object In tmpsplit.Panel2.Controls 
                        Objectanalysis_readonly(ctrl) 
                    Next 
                Case "tabcontrol", "clsmytabcontrol" 
                    ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, "")) 
                    Dim tmptabcontrol As TabControl = ctl 
                    For Each ctl In tmptabcontrol.TabPages 
                        Objectanalysis_readonly(ctl) 
                    Next 
                Case "tabpage" 
                    Dim tmptabpage As TabPage = ctl 
                    ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1)) 
 
                    For Each ctl In tmptabpage.Controls 
                        Objectanalysis_readonly(ctl) 
                    Next 
                Case "groupbox" 
                    ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, "")) 
                    Dim tmptabpage As GroupBox = ctl 
                    For Each ctl In tmptabpage.Controls 
                        Objectanalysis_readonly(ctl) 
                    Next 
                Case "panel" 
                    ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, "")) 
                    Dim tmppanel As Panel = ctl 
                    For Each ctl In tmppanel.Controls 
                        Objectanalysis_readonly(ctl) 
                    Next 
                Case "textbox" 
                    Dim x As TextBox = ctl 
                    x.BackColor = Color.LightGray 
                    x.ForeColor = Color.Black 
                    x.ReadOnly = True 
                Case "maskedtextbox" 
                    Dim x As MaskedTextBox = ctl 
                    x.BackColor = Color.LightGray 
                    x.ForeColor = Color.Black 
                    x.ReadOnly = True 
                Case "combobox" 
                    Dim x As ComboBox = ctl 
                    x.Enabled = False 
                    x.BackColor = Color.LightGray 
                    x.ForeColor = Color.Black 
                Case "checkbox" 
                    Dim x As CheckBox = ctl 
                    x.Enabled = False 
                Case "radiobutton" 
                    Dim x As RadioButton = ctl 
                    x.Enabled = False 
                Case "comboboxtree" 
                    Dim x As Object = ctl 
                    x.enabled = False 
                    x.BackColor = Color.LightGray 
                    x.ForeColor = Color.Black 
                Case "richtextbox" 
                    Dim x As Object = ctl 
                    x.BackColor = Color.LightGray 
                    x.ForeColor = Color.Black 
                    x.ReadOnly = True 
                Case "button" 
                    Dim x As Button = ctl 
                    x.Enabled = False 
                Case "listbox" 
                    Dim x As Object = ctl 
                    ctl.enabled = False 
                Case "checkedlistbox" 
                    Dim x As Object = ctl 
                    ctl.enabled = False 
                Case Else 
            End Select 
        End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

MySecurity