AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM 2022-02-09 13:35:10 +01:00
parent 90fabc1604
commit 3af66db602
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -105,14 +105,18 @@ Public Class frmFlowForm
AddHandler KeyUp, AddressOf frmFlowForm_KeyDown AddHandler KeyUp, AddressOf frmFlowForm_KeyDown
AddHandler Watcher.ClipboardChanged, AddressOf Watcher_ClipboardChanged AddHandler Watcher.ClipboardChanged, AddressOf Watcher_ClipboardChanged
PictureBoxSearch1.Visible = False
Dim oSQL = My.Queries.Common.FNIDB_GET_SEARCH_PROFILES(My.Application.User.UserId, My.Application.User.Language) Dim oSQL = My.Queries.Common.FNIDB_GET_SEARCH_PROFILES(My.Application.User.UserId, My.Application.User.Language)
Dim oDatatable As DataTable = My.Database.GetDatatableIDB(oSQL) Dim oDatatable As DataTable = My.Database.GetDatatableIDB(oSQL)
PictureBoxSearch1.Visible = False
If Not IsNothing(oDatatable) OrElse oDatatable.Rows.Count > 0 Then If Not IsNothing(oDatatable) Then
IDBSearchActive = True If oDatatable.Rows.Count > 0 Then
DTIDB_SEARCHES = oDatatable IDBSearchActive = True
PictureBoxSearch1.Visible = True DTIDB_SEARCHES = oDatatable
PictureBoxSearch1.Visible = True
End If
End If End If
If My.Application.ModulesActive.Contains(MODULE_CLIPBOARDWATCHER) Then If My.Application.ModulesActive.Contains(MODULE_CLIPBOARDWATCHER) Then