Doku/Dokumentation/uscntr_DomUser.vb

Public Class uscntr_DomUser

    Dim DomList As New List(Of cDomUser)
    Property DomUser As New cDomUser

    Private Sub uscntr_DomUser_Load(sender As Object, e As EventArgs) Handles Me.Load
        FillForm()
    End Sub

    Function FillForm()
        If DomUser.Exist Then
            TxtAvisoBenutzername.Text = DomUser.mit_username
            TxtAvisoKennwort.Text = DomUser.mit_pwd
            txtBenutzer.Text = DomUser.du_sAMAc
            txtEMailAdresse.Text = DomUser.du_EMail
            txtVorname.Text = DomUser.du_Vorname
            txtNachname.Text = DomUser.du_Nachname
            txtDomaene.Text = DomUser.du_Dom
            chkEMailAktiv.Checked = DomUser.du_Email_Activated
            txtInfo.Text = DomUser.du_Info
            txtComputer.Text = DomUser.du_computer
            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

    Function FillDomUser()
        DomUser.mit_username = TxtAvisoBenutzername.Text
        DomUser.mit_pwd = TxtAvisoKennwort.Text
        DomUser.du_sAMAc = txtBenutzer.Text
        DomUser.du_Vorname = txtVorname.Text
        DomUser.du_Nachname = txtNachname.Text
        DomUser.du_Kennwort = txtDomKennwort.Text
        DomUser.du_Dom = txtDomaene.Text
        DomUser.du_Email_Activated = chkEMailAktiv.Checked
        DomUser.du_EMail = txtEMailAdresse.Text
        DomUser.du_Info = txtInfo.Text
        DomUser.du_computer = txtComputer.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
        If CheckBox1.Checked Then
            txtDomKennwort.PasswordChar = ""
        Else
            txtDomKennwort.PasswordChar = "*"
        End If

    End Sub

    Private Sub ChkKennwortAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles ChkKennwortAnzeigen.CheckedChanged
        If ChkKennwortAnzeigen.Checked Then
            TxtAvisoKennwort.PasswordChar = ""
        Else
            TxtAvisoKennwort.PasswordChar = "*"
        End If
    End Sub

    Private Sub chkEMailAktiv_CheckedChanged(sender As Object, e As EventArgs) Handles chkEMailAktiv.CheckedChanged
        If chkEMailAktiv.Checked Then
            txtEMailAdresse.Enabled = True
        Else
            txtEMailAdresse.Text = ""
            txtEMailAdresse.Enabled = False
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnLoadFromAviso.Click
        DomList.Clear()
        DomUser = New cDomUser
        DomUser.getFromAvisoUser(TxtAvisoBenutzername.Text)
        DomList = DomUser.getFromAvisoUserLIST(TxtAvisoBenutzername.Text)
        If DomList.Count = 1 Then
            FillForm()
        Else
            ListDomUser.Items.Clear()
            For Each domu As cDomUser In DomList
                ListDomUser.Items.Add(domu.du_Dom & "\" & domu.du_sAMAc)
            Next
            ListDomUser.Visible = True
        End If

    End Sub

    Private Sub cmdSave_Click(sender As Object, e As EventArgs) Handles cmdSave.Click
        FillDomUser()
        DomUser.Save()
    End Sub

    Private Sub ListDomUser_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListDomUser.SelectedIndexChanged, ListDomUser.MouseClick

        DomUser = DomList.Item(ListDomUser.SelectedIndex)
        DomUser.Exist = True
        ListDomUser.Visible = False
        FillForm()
    End Sub

    Private Sub btnSchliessen_Click(sender As Object, e As EventArgs) Handles btnSchliessen.Click
        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

    Private Sub btnRDP_Click(sender As Object, e As EventArgs) Handles btnRDP.Click
        cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, False)
    End Sub

    Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
        cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, True)
    End Sub

    Private Function SelectRDPTarget() As String
        If DomUser.du_computer.Length > 0 Then
            If chkRDP2TS.Checked Then
                Return "rdpintern.verag.ag"
            Else
                Return DomUser.du_computer
            End If
        Else
            Return "rdpintern.verag.ag"
        End If
    End Function
End Class