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
            txtDomKennwort.Text = DomUser.du_Kennwort

            txtEMailAdresse.Enabled = DomUser.du_Email_Activated
        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
    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.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
End Class