MS General commit

This commit is contained in:
Digital Data - Marlon Schreiber
2019-07-08 12:09:59 +02:00
parent 22549ee7aa
commit 16e37caeb5
22 changed files with 758 additions and 167 deletions

View File

@@ -13,6 +13,9 @@ Public Class frmMain
Private Sub _Watcher_Changed(ByVal sender As Object,
ByVal e As EventArgs) Handles _Watcher.Changed
clsHotkey.GetCaption()
If DT_USER_PROFILES Is Nothing Then
Exit Sub
End If
@@ -168,8 +171,12 @@ Public Class frmMain
End Sub
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed
If HotKeyID = 354523017 Then
If Not IsNothing(CURR_MATCH_RESULT) And Not IsNothing(CURR_MATCH_WM_SEARCH) Then
SplashScreenManager1.ShowForm(Me, GetType(WaitForm1), True, True, False)
clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
'Close Wait Form
SplashScreenManager1.CloseForm(False)
End If
ElseIf HotKeyID = 354522017 Then
Change_Monitoring_State()