Neue Instanz erstellen

[Visual Basic]
Public Sub New( _ 
   ByVal ctl As Object, _ 
   ByVal Formname As String, _ 
   ByVal securityobjecttype As String, _ 
   ByVal Securityobject As String, _ 
   ByVal SecurityObjectItem As String, _ 
   Optional ByVal level As Integer = 0, _ 
   Optional ByVal desc As String = "" _ 
)

Parameter

ctl

Control-Objekt

Formname

Betroffenes Formular

securityobjecttype

Objekttyp

Securityobject

Objektname

SecurityObjectItem

Unterobjekt (z.B. bei Menus, Spalten von C1TrueDBGrids)

level

Optional. Der Standardwert ist 0.

desc

Optional. Der Standardwert ist "".

Quellcode

[Visual Basic]
        Sub New(ByVal ctl As Object, ByVal Formname As String, ByVal securityobjecttype As String, ByVal Securityobject As String, ByVal SecurityObjectItem As String, Optional ByVal level As Integer = 0, Optional ByVal desc As String = "") 
            MyControl = ctl 
            MySecurityObjecttype = securityobjecttype 
            MyFormname = Formname 
            MySecurityObject = Securityobject 
            MySecurityObjectItem = SecurityObjectItem 
            If desc = "" Then 
                MyDescription = Get_Description(ctl) 
            Else 
                MyDescription = desc 
            End If 
            Try 
                MyDescription = MyDescription.Replace("&", "") 
            Catch ex As Exception 
            End Try 
            MyLevel = level 
        End Sub

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

MyFormControls