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

42
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

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