Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms

'Imports System.Threading

Public Class MySearchBox
    Inherits System.Windows.Forms.TextBox
    Implements INotifyPropertyChanged

    ' Dim sql As New SDL.SQL
    ' Dim KUNDENSQL As New SDL.kundenSQL
    Dim form As Form = Me.FindForm
    'Public KdData As SDL.cKundenFMZOLL
    Public DR As DataRow = Nothing

    Public Property searchActive As Boolean = True
    Public Property _AllowSetValue As Boolean = False
    Public Property _allowFreitext As Boolean = False
    Public Property _hideIfListEmpty As Boolean = True
    Public Property dgvpos As String = "LEFT"
    Public Property _autoSizeGross As Boolean = False

    Public Property SQL_WhereParamList As String()
    Public Property INVISIBLE_COLUMNS As String()

    Public Property SQL_SELECT As String
    Public Property SQL_WHERE As String
    Public Property KEYPARAM As String
    Public Property DISPLAY_PARAM As String
    ' Public Property DISPLAY_PARAM_VALUE As String
    Public Property SQL_ORDER_BY As String
    Public Property conn_art As String = "FMZOLL"
    Public Property key_visible As Boolean = False
    Public Property _allowSpaceAsSplitter As Boolean = False


    Dim SrchHeight As Integer = 300
    Dim SrchWidth As Integer = 300

    Public Event VALUE_CHANGED()

    Dim active = False
    Public Property _value As String
    ' Public Propvalue As String
    ' Public Property _value As String
    '    Get
    '       Return Me.Propvalue
    '   End Get
    '    Set(v As String)
    '   SET_VALUE(v)
    '        OnPropertyChanged("_value")
    '    End Set
    'End Property



    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

    Protected Sub OnPropertyChanged(ByVal name As String)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name))
    End Sub


    Public WithEvents usrcntl As usrcntlKdSearch '= DirectCast(Me.FindForm.Controls.Find("dgvFindKD", False)(0), DataGridView)

    '    Public WithEvents dgv As DataGridView
    ' Public WithEvents dgvInaktiv As DataGridView

    Dim SQL As New SQL

    Public Sub FireReturn()
        dgvFindKD_Click(Me, New KeyEventArgs(Keys.Return))
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        Try
            MyBase.OnPaint(e)
        Catch ex As Exception
            Me.Invalidate()
        End Try
    End Sub

    Private Sub KdSearchBox_GotFocus(sender As Object, e As EventArgs) Handles Me.GotFocus
        Try
            Me.SelectionLength = 0
            Me.HideSelection = False
            Me.SelectAll()
            Me.Select()
        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 01: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub

    Private Sub KdSearchBox_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        Try
            'Console.WriteLine(String.Format("TEEST 01"))
            If Not searchActive Then Exit Sub

            ' If dgv Is Nothing Then dgv = usrcntl.dgvKundenAktiv
            ' If dgvInaktiv Is Nothing Then dgvInaktiv = usrcntl.dgvKundenInAktiv

            If e.KeyCode = Keys.ShiftKey Or e.KeyCode = Keys.Shift Or e.KeyCode = Keys.Alt Or e.KeyCode = Keys.Control Or e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Or e.KeyCode = Keys.End Or e.KeyCode = Keys.Home Or e.KeyCode = Keys.CapsLock Then 'Bei Shift Tab..
                If usrcntl IsNot Nothing Then usrcntl.Visible = False
                e.Handled = True
                Exit Sub
            End If


            If e.KeyCode = Keys.Tab Then
                If usrcntl IsNot Nothing Then usrcntl.Visible = False
                e.Handled = True
                Exit Sub
            End If

            If e.KeyCode = Keys.Return Then
                e.Handled = True
                Exit Sub
            End If

            If e.KeyCode = Keys.Up Then
                If usrcntl IsNot Nothing Then prevLKW(usrcntl.dgvKundenAktiv)
                e.Handled = True
                Exit Sub
            End If
            If e.KeyCode = Keys.Down Then
                If usrcntl IsNot Nothing Then nextLKW(usrcntl.dgvKundenAktiv)
                e.Handled = True
                Exit Sub
            End If
            If e.KeyCode = Keys.Escape Then
                hideDgv(usrcntl)
                e.Handled = True
                Exit Sub
            End If


            DR = Nothing
            _value = ""

            If Me.Text.Trim = "" Then
                setMeValue(DR)
                hideDgv(usrcntl)
                Exit Sub
            End If

            If usrcntl Is Nothing Then
                Exit Sub
            End If

            If usrcntl.Visible = False Then
                usrcntl.Width = SrchWidth
                usrcntl.Height = SrchHeight

                Dim locationOnForm As Point = Nothing
                If dgvpos = "LEFT" Or dgvpos = "" Then
                    locationOnForm = Me.FindForm().PointToClient(Me.Parent.PointToScreen(Me.Location))
                ElseIf dgvpos = "RIGHT" Then
                    locationOnForm = Me.FindForm().PointToClient(Me.Parent.PointToScreen(Me.Location))
                    locationOnForm.X = locationOnForm.X - (usrcntl.Width - Me.Width)
                    '  MsgBox(locationOnForm.X & "/" & locationOnForm.Y)
                End If


                If locationOnForm.Y + usrcntl.Height + Me.Height > form.ClientRectangle.Height Then
                    usrcntl.Height = form.ClientRectangle.Height - locationOnForm.Y - Me.Height
                End If

                usrcntl.Location = locationOnForm
                usrcntl.Top += Me.Height
            End If

            With usrcntl.dgvKundenAktiv

                If usrcntl.Visible = False Then
                    .AllowUserToAddRows = False
                    .AllowUserToDeleteRows = False
                    .AllowUserToOrderColumns = False
                    .AllowUserToResizeColumns = False
                    .AllowUserToResizeRows = False
                    .ReadOnly = True
                    .MultiSelect = False
                    .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                    .BackgroundColor = Color.White
                    .ForeColor = Color.Black
                    .GridColor = Color.White

                End If

                    'THREADING AKTIV
                    Me.ThreadInitAKTIV()
                    ' Dim ThreadInitAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitAKTIV)
                    ' ThreadInitAKTIV.IsBackground = True
                    ' ThreadInitAKTIV.Start()

            End With


            usrcntl.dgvKundenInAktiv.Visible = False
            usrcntl.Panel1.Visible = False


            If _hideIfListEmpty Then


                If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then
                    setObjectVisible(usrcntl, False)
                Else
                    setObjectVisible(usrcntl, True)
                End If
                If False Then

                    'THREADING ThreadWaitAndSee
                    Dim ThreadWaitAndSee = New System.Threading.Thread(Sub()
                                                                           Threading.Thread.Sleep(200)
                                                                           If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then
                                                                               setObjectVisible(usrcntl, False)
                                                                           Else
                                                                               setObjectVisible(usrcntl, True)
                                                                           End If
                                                                       End Sub)
                    ThreadWaitAndSee.IsBackground = True
                    ThreadWaitAndSee.Start()
                End If
            Else
                usrcntl.Visible = True
                usrcntl.Show()
                usrcntl.BringToFront()
            End If

        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 02: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub

    Public Sub hideDgv(o) '(sender As Object, e As EventArgs)
        If o IsNot Nothing Then
            Me.searchActive = False
            o.visible = False
            Me.searchActive = True
        End If
    End Sub


    Sub ThreadInitAKTIV()
        Try
            If usrcntl Is Nothing Then Exit Sub
            If usrcntl.dgvKundenAktiv Is Nothing Then Exit Sub
            With usrcntl.dgvKundenAktiv

                Dim srch As String = Me.Text.Replace("'", "").ToString.Trim
                If _allowSpaceAsSplitter Then srch = srch.Replace(" ", ",")

                Dim srch2 As String = ""
                If srch.Contains(",") Then
                    Dim spitter() = srch.Split(",")
                    srch = spitter(0).ToString.Trim
                    srch2 = spitter(1).ToString.Trim
                End If
                Dim topAnz = 16
                Dim AvisoEmail = ""
                Dim SQLstr As String = "SELECT TOP " & topAnz & " " & SQL_SELECT & " WHERE 1=1 "
                SQLstr &= If(SQL_WHERE <> "", " AND " & SQL_WHERE, "")

                If srch <> "" And SQL_WhereParamList.Count > 0 Then 'erster Suchparameter
                    SQLstr &= " AND ( 1<>1 "
                    For Each s In SQL_WhereParamList
                        SQLstr &= " OR " & s & " LIKE '" & srch.Replace("*", "%") & "%' "
                    Next
                    SQLstr &= " ) "
                End If

                If srch2 <> "" And SQL_WhereParamList.Count > 0 Then 'Wenn zweiter Suchparameter
                    SQLstr &= " AND ( 1<>1 "
                    For Each s In SQL_WhereParamList
                        SQLstr &= " OR " & s & " LIKE '" & srch2.Replace("*", "%") & "%' "
                    Next
                    SQLstr &= " ) "
                End If

                If SQL_ORDER_BY <> "" Then SQLstr &= " ORDER BY " & SQL_ORDER_BY
                'MsgBox(SQLstr)
                ' MsgBox(SQL.loadDgvBySql(SQLstr, conn_art).Rows.Count)
                setDS(usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr, conn_art))

            End With

        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub


    Public Sub SET_VALUE(KEYPARAM_Value, Optional showerror = True)
        Try

            If Not active Then Exit Sub
        If KEYPARAM_Value Is Nothing Then KEYPARAM_Value = ""
        Dim SQLstr As String = "SELECT TOP 1 " & SQL_SELECT & " WHERE 1=1 "
        SQLstr &= " AND " & KEYPARAM & " = '" & KEYPARAM_Value & "' "
        SQLstr &= If(SQL_WHERE <> "", " AND " & SQL_WHERE, "")
        If SQL_ORDER_BY <> "" Then SQLstr &= " ORDER BY " & SQL_ORDER_BY
            '  MsgBox(SQLstr)
            Dim dttmp As DataTable = SQL.loadDgvBySql(SQLstr, conn_art, , showerror)
            If dttmp IsNot Nothing AndAlso dttmp.Rows.Count > 0 Then
                setMeValue(dttmp.Rows(0))
            Else
                If _allowFreitext Then
                    Me.Text = KEYPARAM_Value
                    Me._value = KEYPARAM_Value
                Else
                    Me.Text = ""
                    Me._value = ""
                End If
                hideDgv(usrcntl)
            End If

        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub




    Public Function GET_VALUE_OnlyReturn(KEYPARAM_Value, Optional showerror = True)
        Try
            If SQL_SELECT = "" Then Return Nothing 'Ohne dem gehts nicht
            If KEYPARAM = "" Then Return Nothing 'Ohne dem gehts nicht
            If KEYPARAM_Value Is Nothing Then KEYPARAM_Value = ""

            Dim SQLstr As String = "SELECT TOP 1 " & SQL_SELECT & " WHERE 1=1 "
            SQLstr &= " AND " & KEYPARAM & " = '" & KEYPARAM_Value & "' "
            SQLstr &= If(SQL_WHERE <> "", " AND " & SQL_WHERE, "")
            If SQL_ORDER_BY <> "" Then SQLstr &= " ORDER BY " & SQL_ORDER_BY

            Dim dttmp As DataTable = SQL.loadDgvBySql(SQLstr, conn_art, , showerror)
            If dttmp IsNot Nothing AndAlso dttmp.Rows.Count > 0 Then
                Return dttmp.Rows(0)(If(DISPLAY_PARAM = "", KEYPARAM, DISPLAY_PARAM)).ToString
            End If
        Catch ex As Exception
        End Try
        Return Nothing
    End Function


    Public Function GET_VALUE_OnlyReturnBySQL(SQL_str, Optional showerror = True)
        Try
           
            Dim dttmp As DataTable = SQL.loadDgvBySql(SQL_str, conn_art, , showerror)
            If dttmp IsNot Nothing AndAlso dttmp.Rows.Count > 0 Then

                Return dttmp.Rows(0)(If(DISPLAY_PARAM = "", KEYPARAM, DISPLAY_PARAM)).ToString
            End If
        Catch ex As Exception
        End Try
        Return Nothing
    End Function

    'threadsicherer Aufruf
    '   Delegate Sub setLabelCallback(l As DataGridView, t As DataTable)
    Private Sub setDS(l As DataGridView, t As DataTable)
        Try
            If l Is Nothing Then Exit Sub
            If t Is Nothing Then Exit Sub
            ''  If Me.InvokeRequired Then
            'Dim d As New setLabelCallback(AddressOf setDS)
            ' Me.Invoke(d, New Object() {l, t})
            ' Else
            With l
                .Columns.Clear()
                .DataSource = t

                If .ColumnCount = 0 Then Exit Sub

                .RowHeadersVisible = False
                .Columns(KEYPARAM).Visible = key_visible
                .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
                .ClearSelection()

                If INVISIBLE_COLUMNS IsNot Nothing Then
                    For Each i In INVISIBLE_COLUMNS
                        .Columns(i).Visible = False
                    Next
                End If

            End With
            '  End If

        Catch ex As Exception
            ' Try
            '       MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.name & ") aufgetreten 05: " & vbNewLine & vbNewLine & ex.Message)
            'Catch ex2 As Exception
            '    MsgBox("ERR", vbCritical)
            'End Try
        End Try

    End Sub

    'threadsicherer Aufruf
    'Delegate Sub setObjectVisibleCallback(l As Object, v As Boolean)
    Private Sub setObjectVisible(l As Object, v As Boolean)
        Try
            If l Is Nothing Then Exit Sub
            '    If Me.InvokeRequired Then
            '       Dim d As New setObjectVisibleCallback(AddressOf setObjectVisible)
            'Me.Invoke(d, New Object() {l, v})
            '   Else
            l.visible = v
            If v = True Then
                l.Show()
                l.BringToFront()
            End If
            ' End If
        Catch ex As Exception
            '   MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.name & ") aufgetreten 06: " & vbNewLine & vbNewLine & ex.Message)
        End Try
    End Sub


    Public Sub nextLKW(dgv As DataGridView) '(sender As Object, e As EventArgs)
        Try
            If dgv.SelectedRows.Count > 0 Then
                Dim i As Integer = dgv.SelectedRows(0).Index
                If (i + 1 < dgv.RowCount) Then
                    'dgv.CurrentCell = dgv.Item(2, i + 1)
                    dgv.ClearSelection()
                    dgv.Rows(i + 1).Selected = True
                End If
            Else
                If dgv.Rows.Count > 0 Then ' dgv.CurrentCell = dgv.Item(2, 0)
                    dgv.ClearSelection()
                    dgv.Rows(0).Selected = True
                End If
            End If

        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03,1: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub
    Public Sub prevLKW(dgv As DataGridView) '(sender As Object, e As EventArgs)
        Try
            If dgv.SelectedRows.Count > 0 Then
                Dim i As Integer = dgv.SelectedRows(0).Index
                If (i > 0) Then
                    'dgv.CurrentCell = dgv.Item(2, i - 1)
                    dgv.ClearSelection()
                    dgv.Rows(i - 1).Selected = True
                End If
            Else
                If dgv.Rows.Count > 0 Then 'dgv.CurrentCell = dgv.Item(2, dgv.Rows.Count - 1)
                    dgv.ClearSelection()
                    dgv.Rows(dgv.Rows.Count - 1).Selected = True
                End If
            End If
        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03,2: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub

    Private Sub usrcntl_CLOSE(sender As Object, e As EventArgs) Handles usrcntl.CLOSE
        hideDgv(usrcntl)
    End Sub


    Private Sub dgvFindKD_Click(sender As Object, e As EventArgs) Handles usrcntl.DGV_Click
        Try
            If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then
                With usrcntl.dgvKundenAktiv
                    If .SelectedRows.Count > 0 Then
                        '  If IsNumeric(.SelectedRows(0).Cells("KdNr").Value) Then
                        setMeValue(ToDataRow(.SelectedRows(0)))
                        hideDgv(usrcntl)
                        'End If
                    End If
                End With
            End If
        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 07: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub

    Public Shared Function ToDataRow(ByVal Value As DataGridViewRow) As DataRow
        Try
            Dim dv As System.Data.DataRowView = CType(Value.DataBoundItem, DataRowView)
            Return dv.Row
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Private Sub TextBox1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
        Try
            If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then
                If e.KeyData = Keys.Tab And usrcntl.Visible Then ' wenn usrcntl eingeblendet, soll der TABULATOR als InputKey gesehen werden.
                    If usrcntl.dgvKundenAktiv.SelectedRows.Count > 0 Then e.IsInputKey = True Else usrcntl.Visible = False
                End If
            End If
        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 09: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub
    Private Sub dgvFindKD_Click(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, usrcntl.DGV_KeyDown
        Try
            If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then
                With usrcntl.dgvKundenAktiv
                    If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Tab Then
                        If e.KeyCode = Keys.Return And .RowCount > 0 And .SelectedRows.Count = 0 Then .Rows(0).Selected = True

                        If .SelectedRows.Count > 0 Then
                            '      If IsNumeric(.SelectedRows(0).Cells("KdNr").Value) Then
                            setMeValue(ToDataRow(.SelectedRows(0)))
                            hideDgv(usrcntl)
                            'End If
                        Else
                            usrcntl.Visible = False
                        End If
                        e.Handled = True
                        e.SuppressKeyPress = True

                    End If
                End With
            End If
        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 10: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub


    Private Sub setMeValue(row As DataRow)
        Try
            If Not active Then Exit Sub
            Me.DR = row
            Me._value = ""
            If Me.DR Is Nothing Then
                Me.Text = ""
            Else
                Me._value = row(KEYPARAM).ToString
                Me.Text = row(If(DISPLAY_PARAM = "", KEYPARAM, DISPLAY_PARAM)).ToString
                hideDgv(usrcntl)
            End If
            RaiseEvent VALUE_CHANGED()
            If Me.Text.Length > Me.MaxLength Then Me.Text = Me.Text.Substring(0, Me.MaxLength)
        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 12: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub




    Private Sub KdSearchBox_PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Handles Me.PropertyChanged
        ' setMeValue() ???????????????
    End Sub

    Sub initSearchBox(control As Control, SQL_SELECT As String, SQL_WhereParamList() As String, SQL_WHERE As String, SQL_ORDER_BY As String, KEYPARAM As String, Optional DISPLAY_PARAM As String = "", Optional conn_art As String = "FMZOLL", Optional key_visible As Boolean = True, Optional SrchWidth As Integer = 300, Optional Srchheight As Integer = 300, Optional INVISIBLE_COLUMNS() As String = Nothing)
        Try
            If control Is Nothing Then Exit Sub
            Me.form = control
            Me.usrcntl = New usrcntlKdSearch
            control.Controls.Add(usrcntl)

            Me.SQL_WhereParamList = SQL_WhereParamList
            Me.SQL_SELECT = SQL_SELECT
            Me.SQL_WHERE = SQL_WHERE
            Me.KEYPARAM = KEYPARAM
            Me.DISPLAY_PARAM = DISPLAY_PARAM
            Me.SQL_ORDER_BY = SQL_ORDER_BY
            Me.conn_art = conn_art
            Me.key_visible = key_visible

            Me.SrchHeight = Srchheight
            Me.SrchWidth = SrchWidth
            Me.INVISIBLE_COLUMNS = INVISIBLE_COLUMNS

            'Me.usrcntl = usrcntl
            hideDgv(Me.usrcntl)
            active = True
        Catch ex As Exception
            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 13: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
        End Try
    End Sub



    Private Sub KdSearchBox_LostFocus(sender As Object, e As EventArgs) Handles Me.LostFocus
        'THREADING ThreadWaitAndSee
        Dim ThreadWaitAndSee = New System.Threading.Thread(Sub()
                                                               Try
                                                                   Threading.Thread.Sleep(300)
                                                                   ' MsgBox(Me.form.ActiveControl.Name)
                                                                   If Me.form Is Nothing Then Exit Sub
                                                                   If Me.form.ActiveControl Is Nothing Then Exit Sub
                                                                   If Me.form.ActiveControl IsNot Me Then
                                                                       setObjectVisible(usrcntl, False)
                                                                   End If
                                                               Catch ex As Exception

                                                               End Try
                                                           End Sub)
        ThreadWaitAndSee.IsBackground = True
        ThreadWaitAndSee.Start()

        Try
            If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing AndAlso usrcntl.dgvKundenInAktiv IsNot Nothing Then
                If usrcntl.dgvKundenAktiv.SelectedCells.Count = 0 And usrcntl.dgvKundenInAktiv.SelectedCells.Count = 0 Then
                    Me.SelectionLength = 0
                End If
            End If
        Catch ex As Exception
            MsgBox("KdSearchBox_LostFocus: " & ex.Message)
        End Try
    End Sub



    Private Sub KdSearchBox_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout
        If _autoSizeGross Then
            Me.CharacterCasing = Windows.Forms.CharacterCasing.Upper
            ' If Me.Text <> "" Then Me.Text = Me.Text.ToUpper
        End If
    End Sub

    Private Sub KdSearchBox_TextChanged(sender As Object, e As EventArgs) Handles Me.TextChanged
        If Me.Text.Length > Me.MaxLength Then Me.Text = Me.Text.Substring(0, Me.MaxLength)
    End Sub



    Private Sub MySearchBox_Leave(sender As Object, e As EventArgs) Handles Me.Leave
        If Me._value = "" And Me.Text <> "" Then
            SET_VALUE(Me.Text, False) 'Versucht, ob der Wert genau passt
        End If
        ' hideDgv(usrcntl) 'Geht ned, sonst kann man auch keinen Mausklick auf die DGV machen!!
    End Sub
End Class