diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index efff3bda..158380df 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -262,32 +262,32 @@ Public Class KdSearchBox End If End If - 'If _hideIfListEmpty Then + 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 + 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 + '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 Eingabe_verarbeitet = True last_search = Now