Formular-Initialisierung
[Visual Basic] Public Sub New( _
ByVal Nr As Integer, _
ByVal Vertragselementnr As Integer, _
Optional ByVal iReadOnly As Boolean = False, _
Optional ByVal CreateNew As Boolean = False _
)
[Visual Basic] Public Sub New(ByVal Nr As Integer, ByVal Vertragselementnr As Integer, Optional ByVal iReadOnly As Boolean = False, Optional ByVal CreateNew As Boolean = False)
MyBase.New()
Me.InitializeComponent()
If CreateNew = True Then
Me.Kuendigungsfristnr = Me.Kuendigungsfrist.Add_New(Vertragselementnr)
Me.Neuer_Datensatz = True
Else
Kuendigungsfristnr = Nr
End If
Me.Vertragselementnr = Vertragselementnr
Me.FormReadonly = iReadOnly
End Sub
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