From ac7f295580b97265cb8f9a096bda5e7513affe9f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 29 Dec 2025 15:41:01 +0100 Subject: [PATCH] kdSearchbox --- .../KdSearchBox.vb | 54 +++++++++---------- .../usrcntlKdSearch.vb | 4 +- 2 files changed, 29 insertions(+), 29 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index 27da0980..efff3bda 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -160,7 +160,7 @@ Public Class KdSearchBox End Try End Sub - Private Sub seeAllKunden(sender As Object, e As MouseEventArgs) Handles usrcntl.DGV_AlleKunden + Private Sub seeAllKunden(sender As Object, e As EventArgs) Handles usrcntl.DGV_AlleKunden If Not searchActive Then Exit Sub @@ -219,9 +219,7 @@ Public Class KdSearchBox 'THREADING AKTIV Me.ThreadInitAKTIV(GlobalAnzahlKunden) - ' Dim ThreadInitAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitAKTIV) - ' ThreadInitAKTIV.IsBackground = True - ' ThreadInitAKTIV.Start() + End With End If @@ -264,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 diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb index a8e23579..4b3a1e67 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb @@ -50,7 +50,9 @@ Public Class usrcntlKdSearch End Sub - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAlleKunden.Click + Private Sub btnAlleKunden_Click(sender As Object, e As EventArgs) Handles btnAlleKunden.Click + RaiseEvent DGV_AlleKunden(sender, e) End Sub + End Class