Dumdidummdummda

Dokumentation/uscntr_DomUser.vb

@@ -21,6 +21,11 @@
             txtDomKennwort.Text = DomUser.du_Kennwort
 
             txtEMailAdresse.Enabled = DomUser.du_Email_Activated
+
+            chkAutoLogoff.Checked = DomUser.du_autologoff
+            If DomUser.du_autologoff = True Then
+                DateTimePicker1.Value = DomUser.du_autologofftime
+            End If
         End If
     End Function
 
@@ -35,6 +40,8 @@
         DomUser.du_Email_Activated = chkEMailAktiv.Checked
         DomUser.du_EMail = txtEMailAdresse.Text
         DomUser.du_Info = txtInfo.Text
+        DomUser.du_autologoff = chkAutoLogoff.Checked
+        DomUser.du_autologofftime = DateTimePicker1.Value
     End Function
 
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
@@ -58,6 +65,7 @@
         If chkEMailAktiv.Checked Then
             txtEMailAdresse.Enabled = True
         Else
+            txtEMailAdresse.Text = ""
             txtEMailAdresse.Enabled = False
         End If
     End Sub
@@ -96,4 +104,17 @@
         cmdSave.PerformClick()
         ParentForm.Close()
     End Sub
+
+    Private Sub chkAutoLogoff_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutoLogoff.CheckedChanged
+        DateTimePicker1.Enabled = chkAutoLogoff.Checked
+        cmd3Uhr.Enabled = chkAutoLogoff.Checked
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs)
+        MsgBox("hier")
+    End Sub
+
+    Private Sub cmd3Uhr_Click(sender As Object, e As EventArgs) Handles cmd3Uhr.Click
+        DateTimePicker1.Value = New DateTime(2020, 9, 1, 3, 0, 0)
+    End Sub
 End Class