Public Class frmCheckIn
    Dim cAvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
    Dim LAN = "DE"

    Private Sub frmInfo_Load(sender As Object, e As EventArgs) Handles Me.Load
        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
        Dim cOptionenDAL As New SDL.cOptionenDAL
        If Not cOptionenDAL.checkLogin("CHECKIN", "CHECKIN", "AVISO") Then 'XXXXXX Or true
            Me.Close()
        End If

        'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
        'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB"

        SET_WELCOME()

    End Sub


    Public Sub SET_WELCOME()
        LAN = "DE"
        Panel.Visible = True
        btnResetSearch.Visible = False
        FlowLayoutPanel.Visible = False
        '    PictureBox1.Visible = False
        If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
        Dim USRCNTL As New usrCntlWelcome(Me)
        setPos(USRCNTL)
        Panel3.Controls.Add(USRCNTL)
    End Sub

    Public Sub SET_LANGUAGE(LAN)
        Me.LAN = LAN
    End Sub

    Public Sub SET_SEARCH()
        Panel.Visible = False
        btnResetSearch.Visible = True
        FlowLayoutPanel.Visible = True
        ' PictureBox1.Visible = True
        If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
        Dim USRCNTL As New usrCntlSearch(Me)
        setPos(USRCNTL)
        Panel3.Controls.Add(USRCNTL)
    End Sub

    Public Sub SET_FOUND(AvisoId)
        Panel.Visible = False
        btnResetSearch.Visible = True
        FlowLayoutPanel.Visible = True
        '  PictureBox1.Visible = True
        If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
        Dim USRCNTL As New usrCntlFound(Me, cAvisoDAL.LesenAviso(AvisoId, ""))
        setPos(USRCNTL)
        Panel3.Controls.Add(USRCNTL)
    End Sub

    Public Sub SET_FINISH(AVISO)
        Panel.Visible = False
        btnResetSearch.Visible = True
        FlowLayoutPanel.Visible = True
        '  PictureBox1.Visible = True
        If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
        Dim USRCNTL As New usrCntlFinish(Me, AVISO)
        setPos(USRCNTL, True)
        Panel3.Controls.Add(USRCNTL)
    End Sub

    Public Sub TRANSLATE(CNTL As Control, Optional forceDETraslation As Boolean = False)
        If LAN = "DE" And Not forceDETraslation Then Exit Sub
        Exit Sub 'TEST
        For Each c As Control In CNTL.Controls
            If c.Controls.Count > 0 Then
                TRANSLATE(c)
            Else
                Select Case c.GetType.ToString
                    Case GetType(TextBox).ToString
                        'NIX
                    Case GetType(Label).ToString, GetType(CheckBox).ToString, GetType(Button).ToString
                        c.Text = "OOO"
                End Select
            End If

        Next
    End Sub

    Sub setPos(ByRef USRCNTL As Control, Optional fill As Boolean = False)
        If fill Then
            USRCNTL.Dock = DockStyle.Fill
        Else
            USRCNTL.Left = (Panel3.Width - USRCNTL.Width) / 2
            USRCNTL.Top = 0
            USRCNTL.Height = Panel3.Height
        End If
    End Sub

    Private Sub btnResetSearch_Click(sender As Object, e As EventArgs) Handles btnResetSearch.Click
        SET_WELCOME()
    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click
        LAN = sender.tag
        TRANSLATE(Me)
    End Sub '
End Class