edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

kdSearchbox

Browse Source
This commit is contained in:
d.breimaier
2025-12-29 15:41:01 +01:00
parent ac3627dac6
commit ac7f295580
2 changed files with 29 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -160,7 +160,7 @@ Public Class KdSearchBox
End Try End Try
End Sub 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 If Not searchActive Then Exit Sub
@@ -219,9 +219,7 @@ Public Class KdSearchBox
'THREADING AKTIV 'THREADING AKTIV
Me.ThreadInitAKTIV(GlobalAnzahlKunden) Me.ThreadInitAKTIV(GlobalAnzahlKunden)
' Dim ThreadInitAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitAKTIV)
' ThreadInitAKTIV.IsBackground = True
' ThreadInitAKTIV.Start()
End With End With
End If End If
@@ -264,32 +262,32 @@ Public Class KdSearchBox
End If End If
End If End If
If _hideIfListEmpty Then 'If _hideIfListEmpty Then
If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then ' If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then
setObjectVisible(usrcntl, False) ' setObjectVisible(usrcntl, False)
Else ' Else
setObjectVisible(usrcntl, True) ' setObjectVisible(usrcntl, True)
End If ' End If
If False Then ' If False Then
'THREADING ThreadWaitAndSee ' 'THREADING ThreadWaitAndSee
Dim ThreadWaitAndSee = New System.Threading.Thread(Sub() ' Dim ThreadWaitAndSee = New System.Threading.Thread(Sub()
Threading.Thread.Sleep(200) ' Threading.Thread.Sleep(200)
If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then ' If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then
setObjectVisible(usrcntl, False) ' setObjectVisible(usrcntl, False)
Else ' Else
setObjectVisible(usrcntl, True) ' setObjectVisible(usrcntl, True)
End If ' End If
End Sub) ' End Sub)
ThreadWaitAndSee.IsBackground = True ' ThreadWaitAndSee.IsBackground = True
ThreadWaitAndSee.Start() ' ThreadWaitAndSee.Start()
End If ' End If
Else 'Else
usrcntl.Visible = True usrcntl.Visible = True
usrcntl.Show() usrcntl.Show()
usrcntl.BringToFront() usrcntl.BringToFront()
End If 'End If
Eingabe_verarbeitet = True Eingabe_verarbeitet = True
last_search = Now last_search = Now

4
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb
View File

@@ -50,7 +50,9 @@ Public Class usrcntlKdSearch
End Sub 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) RaiseEvent DGV_AlleKunden(sender, e)
End Sub End Sub
End Class End Class