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

48
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -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
' '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
'End If
Eingabe_verarbeitet = True
last_search = Now

4
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb
View File

@@ -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