You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
32 lines
886 B
32 lines
886 B
Public Class FrmDefinition_Pruefplan
|
|
|
|
Dim m_aktiv As Boolean
|
|
Property Aktiv As Boolean
|
|
Get
|
|
Return m_aktiv
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_aktiv = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_gueltig_bis As DateTime
|
|
Property Gueltig_Bis As DateTime
|
|
Get
|
|
Return m_gueltig_bis
|
|
End Get
|
|
Set(value As DateTime)
|
|
m_gueltig_bis = value
|
|
End Set
|
|
End Property
|
|
Private Sub FrmDefinition_Pruefplan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.dtGueltigBis.Value = Me.Gueltig_Bis
|
|
Me.cbAktiv.Checked = Me.Aktiv = True
|
|
End Sub
|
|
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
|
Me.Gueltig_Bis = Me.dtGueltigBis.Value
|
|
Me.Aktiv = Me.cbAktiv.Checked
|
|
Me.Close()
|
|
End Sub
|
|
End Class |