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

fix

Browse Source
This commit is contained in:
d.breimaier
2025-12-29 15:49:57 +01:00
parent ac7f295580
commit 19199bb9ed
1 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

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