Public Class usrCntlFound

    Dim MAIN As frmCheckIn
    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
    Dim FTYP As eFahrzeugtyp = eFahrzeugtyp.None

    Sub New(MAIN, AVISO)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.MAIN = MAIN
        Me.AVISO = AVISO
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub usrCntlFound_Load(sender As Object, e As EventArgs) Handles Me.Load
        txtFahrername.Focus()

        MAIN.TRANSLATE(Me)
        If AVISO IsNot Nothing Then
            lblKennzeichen.Text = AVISO.LKW_Nr
            lblFraechter.Text = AVISO.Frächter
            lblAvisierer.Text = AVISO.Auftraggeber
            'txtFahrername.Text = AVISO.FahrerHandy
            txtHandy.Text = AVISO.FahrerHandy

        Else
            MAIN.SET_WELCOME()
        End If


    End Sub

    Private Sub cbxHandyKeineAngabe_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHandyKeineAngabe.CheckedChanged
        txtHandy.Enabled = Not cbxHandyKeineAngabe.Checked
    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        lblErrName.Visible = False
        lblErrHandy.Visible = False
        lblErrFahrzeugtyp.Visible = False

        If txtFahrername.Text.Trim = "" Then
            lblErrName.Visible = True
            txtFahrername.Focus()
            Exit Sub
        End If
        If Not cbxHandyKeineAngabe.Checked AndAlso txtHandy.Text.Trim = "" Then
            lblErrHandy.Visible = True
            txtHandy.Focus()
            Exit Sub
        End If
        If FTYP = eFahrzeugtyp.None Then
            lblErrFahrzeugtyp.Visible = True : Exit Sub
        End If
        MAIN.SET_FINISH(AVISO)
    End Sub


    Enum eFahrzeugtyp
        None = 0
        LKW_Auflieger = 1
        LKW = 2
        Sprinter = 3
    End Enum

    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, PictureBox1.Click, PictureBox2.Click
        pic.BackColor = Color.White
        PictureBox1.BackColor = Color.White
        PictureBox2.BackColor = Color.White
        pic.BorderStyle = BorderStyle.None
        PictureBox1.BorderStyle = BorderStyle.None
        PictureBox2.BorderStyle = BorderStyle.None

        If sender Is pic Then FTYP = 1 : pic.BorderStyle = BorderStyle.FixedSingle
        If sender Is PictureBox1 Then FTYP = 2 : PictureBox1.BorderStyle = BorderStyle.FixedSingle
        If sender Is PictureBox2 Then FTYP = 3 : PictureBox2.BorderStyle = BorderStyle.FixedSingle

        sender.BackColor = Color.PapayaWhip

    End Sub


End Class