This commit is contained in:
SchreiberM 2020-11-18 16:42:48 +01:00
parent 9a638bf814
commit 5d7cb4e6ee

View File

@ -9,7 +9,6 @@ Public Class frmFlowForm
Private Const OPACITY_HIDDEN = 0.65
Private Const OPACITY_SHOWN = 0.85
Private ActiveModules As List(Of String)
Private Logger As Logger
Private Init As ClassInit
Private DTIDB_SEARCHES As DataTable
@ -123,7 +122,7 @@ Public Class frmFlowForm
ESCHitCount += 1
End If
ElseIf e.KeyCode = Keys.D AndAlso (e.Control) Then
If ActiveModules.Contains(ClassConstants.MODULE_ZOOFLOW) Then
If My.Application.ModulesActive.Contains(ClassConstants.MODULE_ZOOFLOW) Then
MsgBox("Search")
End If
End If